View source: R/removeUnknownAnimals.R
| removeUnknownAnimals | R Documentation |
Remove placeholder animals added for unknown parents
removeUnknownAnimals(ped)
ped |
The pedigree information in data.frame format |
Pedigree with unknown animals removed
library(nprcgenekeepr)
ped <- nprcgenekeepr::smallPed
addedPed <- cbind(ped,
recordStatus = rep("original", nrow(ped)),
stringsAsFactors = FALSE
)
addedPed[1:3, "recordStatus"] <- "added"
ped2 <- removeUnknownAnimals(addedPed)
nrow(ped)
nrow(ped2)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.