Get pedigree size

pedigree_size(ped)

Arguments

ped

Pedigree

Examples

sim <- sample_geneology(100, 10) peds <- build_pedigrees(sim$population) pedigree_size(peds[[1]])
#> [1] 55