sampleHaplo function

Sample haplotypes from a MapPop