View source: R/removePotentialSires.R
removePotentialSires | R Documentation |
Removes potential sires from list of Ids
removePotentialSires(ids, minAge, ped)
ids |
character vector of IDs of the animals |
minAge |
integer value indicating the minimum age to consider in group formation. Pairwise kinships involving an animal of this age or younger will be ignored. Default is 1 year. |
ped |
dataframe that is the |
character vector of Ids with any potential sire Ids removed.
library(nprcgenekeepr)
qcBreeders <- nprcgenekeepr::qcBreeders
pedWithGenotype <- nprcgenekeepr::pedWithGenotype
noSires <- removePotentialSires(ids = qcBreeders, minAge = 2,
ped = pedWithGenotype)
sires <- getPotentialSires(qcBreeders, minAge = 2, ped = pedWithGenotype)
pedWithGenotype[pedWithGenotype$id %in% noSires, c("sex", "age")]
pedWithGenotype[pedWithGenotype$id %in% sires, c("sex", "age")]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.