founderGenomes <- quickHaplo(nInd = 3, nChr = 1, segSites = 100)
SP <- SimParam$new(founderGenomes)
SP$nThreads = 1L
basePop <- newPop(founderGenomes)
pullInd(basePop, nInd = 2)
pullInd(basePop, nInd = 3)
pullInd(basePop)
Run the code above in your browser using DataLab