ourMELONS/R/laskeOsaDist.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)
}