# Create founder haplotypes
founderPop = quickHaplo(nInd=10, nChr=1, segSites=15)
# Extract haplotypes for marker "1_1"
H = pullMarkerHaplo(founderPop, markers="1_1")
# Set the first haplotype to 1
H[1,1] = 1L
# Set marker haplotypes
founderPop = setMarkerHaplo(founderPop, haplo=H)
Run the code above in your browser using DataLab