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 seq_len(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)
}