Get pids in pedigree
get_pids_in_pedigree(ped)Pedigree
sim <- sample_geneology(100, 10)
peds <- build_pedigrees(sim$population)
get_pids_in_pedigree(peds[[1]])
#> [1] 388 361 347 308 294 250 234 196 126 35 73 108 8 25 43 219 172 123 30
#> [20] 57 185 104 4 85 91 257 216 180 150 72 93 281 254 239 165 103 3 137
#> [39] 50 224 178 155 82 100 349 311 300 263 227 168 101 1 12 105 5 236 189
#> [58] 133 44