example(SampleHaplotypes)
hPedigree <- buildhPedigree(hList = hList)
for(g in 1:10)
{
hList <- SampleHaplotypes(orig = hList,genDist
= 1,roundDec = 3)
hPedigree <- buildhPedigree(hPedigree=hPedigree,hList = hList)
}
Run the code above in your browser using DataLab