if (FALSE) {
#Create founder haplotypes
founderPop = quickHaplo(nInd=10, nChr=1, segSites=15)
#Set simulation parameters
SP = SimParam$new(founderPop)
SP$setSexes(sex="yes_rand")
SP$addTraitA(nQtlPerChr=10)
SP$addSnpChip(nSnpPerChr=5)
SP$setVarE(h2=0.5)
#Create population
pop = newPop(rawPop = founderPop)
# Write out PLINK files
writePlink(pop, baseName="test")
}
Run the code above in your browser using DataLab