# NOT RUN {
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)
# }
Run the code above in your browser using DataLab