removeUnknownAnimals Removes unknown animals added to pedigree that serve as placeholders for unknown parents.

Source: R/removeUnknownAnimals.R

removeUnknownAnimals Removes unknown animals added to pedigree that serve as placeholders for unknown parents.

removeUnknownAnimals(ped)

Arguments

ped

pedigree dataframe

Value

Pedigree with unknown animals removed

Examples

# \donttest{
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)

#> [1] 17
nrow(ped2)

#> [1] 14
# }