Counts the number of types haplotype appears in individuals.

count_haplotype_occurrences_individuals(individuals, haplotype)

Arguments

individuals

List of individuals to count occurrences in.

haplotype

Haplotype to count occurrences of.

Value

Number of times that haplotype occurred amongst individuals.

Examples

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