Get individual by pid

Get individual by pid

get_individual(population, pid)

Arguments

population

Population

pid

pid

Value

Individual

Examples

sim <- sample_geneology(100, 10)
indv <- get_individual(sim$population, 1)
get_pid(indv)
#> [1] 1