List potential sires
Examples
library(nprcgenekeepr)
ped <- nprcgenekeepr::pedWithGenotype
ids <- nprcgenekeepr::qcBreeders
getPotentialSires(ids, ped, minAge = 1L)
#> [1] "J3D3N5" "VFS0XB" "HP3E04"
List potential sires
library(nprcgenekeepr)
ped <- nprcgenekeepr::pedWithGenotype
ids <- nprcgenekeepr::qcBreeders
getPotentialSires(ids, ped, minAge = 1L)
#> [1] "J3D3N5" "VFS0XB" "HP3E04"