#Create founder haplotypes
founderPop = quickHaplo(nInd=10, nChr=1, segSites=30)
#Set simulation parameters
SP = SimParam$new(founderPop)
SP$addTraitA(10)
SP$setVarE(h2=0.5)
SP$addSnpChip(15)
#Create population
pop = newPop(founderPop, simParam=SP)
# drift for QTLs
drift(pop, simParam = SP )
# \donttest{
ans = RRBLUP(pop, simParam=SP)
# drift for average allelic effects
drift(pop, simParam = SP, solution = ans)
# }
Run the code above in your browser using DataLab