Kod 4.12 - NMSwBE

# Kod 4.12 Konstrukcja rankingu w oparciu o wielowymiarowy współczynnik korelacji rang Spearmana

library(permute)

n=10

d=4

k=numPerms(n)

wynik=matrix(NA,k+1,1)

R=1:n

#### Wszystkie permutacje 1:n

per=allPerms(R,how(maxperm=9999999))

per=rbind(R, per)/(n+1)

for (i in 1:k) {

Rw=cbind(per[i,],x)

wynik[i]=r1(Rw)

}

#### Wartość max

wynik[order(wynik,decreasing=TRUE)[1]]

#### Numer

order(wynik,decreasing=TRUE)[1]

per[order(wynik,decreasing=TRUE)[1],]*(n+1)