# Create a founder population
founderPop = quickHaplo(2,1,2)
# Set simulation parameters
SP = SimParam$new(founderPop)
# Create a population
pop = newPop(founderPop, simParam=SP)
# Get the pedigree
getPed(pop)
# Returns NULL when a population lacks a pedigree
getPed(founderPop)
Run the code above in your browser using DataLab