# Deafult example
ped <- generatePedigree(5)
nIndividual(ped)
# Other id columns
nIndividual(ped, col="father")
nIndividual(ped, col="mother")
# Remove individuals with unknown fathers - FIXME
# ped <- ped[!is.na(ped, col="father"), ]
# nIndividual(ped)
# nIndividual(ped, extend=FALSE)
Run the code above in your browser using DataLab