Get pid from individual

get_pid(individual)

Arguments

individual

Individual to get pid of

Value

pid

Examples

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