ourMELONS/R/simulateIndividuals.R

#' @title Simulate individuals
#' @description simulate n individuals from population pop, such that
#' proportion "missing_level" of the alleles are present.
#' @param n n
#' @param rowsFromInd rowsFromInd
#' @param allfreqs allfreqs
#' @param pop pop
#' @param missing_level missing_level
#' @export

simulateIndividuals <- function(n, rowsFromInd, allfreqs, pop, missing_level) {
  nloci <- size(allfreqs, 2)

  refData <- zeros(n * rowsFromInd, nloci)
  counter <- 1 # which row will be generated next.

  for (ind in 1:n) {
    for (loc in 1:nloci) {
      for (k in 0:(rowsFromInd - 1)) {
        if (runif(1) < missing_level) {
          refData[counter + k, loc] <- simuloiAlleeli(
            allfreqs, pop, loc
          )
        } else {
          refData[counter + k, loc] <- -999
        }
      }
    }
    counter <- counter + rowsFromInd
  }
  return(refData)
}