19 lines
No EOL
534 B
R
19 lines
No EOL
534 B
R
laskeOsaDist <- function(inds2, dist, ninds) {
|
||
# % Muodostaa dist vektorista osavektorin, joka sis<69>lt<6C><74> yksil<69>iden inds2
|
||
# % v<>liset et<65>isyydet. ninds=kaikkien yksil<69>iden lukum<75><6D>r<EFBFBD>.
|
||
|
||
ninds2 <- length(inds2)
|
||
apu <- zeros(nchoosek(ninds2, 2), 2)
|
||
rivi <- 1
|
||
for (i in 1:ninds2-1) {
|
||
for (j in i+1:ninds2) {
|
||
apu[rivi, 1] <- inds2[i]
|
||
apu[rivi, 2] <- inds2[j]
|
||
rivi <- rivi + 1
|
||
}
|
||
}
|
||
apu <- (apu[, 1]-1) * ninds - apu[, 1] / 2 *
|
||
(apu[, 1]-1) + (apu[, 2] - apu[, 1])
|
||
dist2 <- dist(apu)
|
||
return(dist2)
|
||
} |