MatePopulations.par: Make a new generation out of 1 or more populations.
In alghul96/AdmSim: Simulation for Genetic Admixture

1	MatePopulations.par(popList, nChildren = 100, cpc = 2, lambda = 2, mc.cores = 1)

`popList`
`nChildren`
`cpc`
`lambda`
`mc.cores`

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (popList, nChildren = 100, cpc = 2, lambda = 2, mc.cores = 1)
{
    individuals = sapply(popList, function(x) x@members)
    individuals = unlist(individuals)
    alleles = sapply(popList, function(x) x@alleles)
    alleles = unlist(alleles)
    alleles = unique(alleles)
    nCouples = round(nChildren/cpc)
    childrenPerCouple = rpois(nCouples, cpc)
    childrenPerCouple = childrenPerCouple[childrenPerCouple !=
        0]
    generateChildren = function(i) {
        parents = sample(individuals, 2)
        children = sapply(1:i, function(x) MateIndividuals(parent1 = parents[[1]],
            parent2 = parents[[2]], lambda = lambda))
        return(children)
    }
    childrenList = mclapply(childrenPerCouple, generateChildren,
        mc.cores = mc.cores)
    output = Population(members = unlist(childrenList), alleles = alleles)
    return(SelectIndividuals(output))
  }