25 lines
848 B
R
25 lines
848 B
R
#' @title Lower part of the dist
|
||
#' @description Constructs from the dist vector a subvector containing the individual inds2, Forms dist sub-vectors the vector, which includes yksiliden inds2
|
||
#' @param inds2 inds2
|
||
#' @param dist dist
|
||
#' @param ninds ninds
|
||
#' @author Waldir Leoncio
|
||
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(choose(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)
|
||
}
|