get_haplotype(individual)

Arguments

individual

Individual to get haplotypes for.

Value

Haplotype for individual.

Examples

sim <- sample_geneology(100, 10)
peds <- build_pedigrees(sim$population)
pedigrees_all_populate_haplotypes(peds, 2, c(1, 1))
get_haplotype(sim$end_generation_individuals[[1]])
#> [1] -5 -1