#Create founder haplotypes
founderPop = quickHaplo(nInd=100, nChr=1, segSites=10)
#Set simulation parameters
SP = SimParam$new(founderPop)
SP$nThreads = 1L
#Create population
pop = newPop(founderPop, simParam=SP)
#Lose an expected 5% of individuals
pop = attrition(pop, p=0.05)
Run the code above in your browser using DataLab