Part of the pedigree filtering toolset.
setPopulation(ped, ids)
datatable that is the `Pedigree`. It contains pedigree
information. The id
column is required.
character vector of IDs to be flagged as part of the population under consideration.
An updated pedigree with the population
column added or
updated by being set to TRUE
for the animal IDs in ped$id
and
FALSE
otherwise.
# NOT RUN {
examplePedigree <- nprcgenekeepr::examplePedigree
breederPed <- qcStudbook(examplePedigree, minParentAge = 2,
reportChanges = FALSE,
reportErrors = FALSE)
focalAnimals <- breederPed$id[!(is.na(breederPed$sire) &
is.na(breederPed$dam)) &
is.na(breederPed$exit)]
breederPed <- setPopulation(ped = breederPed, ids = focalAnimals)
nrow(breederPed[breederPed$population, ])
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab