addBackSecondParents: Add back single parents trimmed pedigree
In rmsharp/nprcmanager: Genetic Tools for Colony Management

Description Usage Arguments Value Examples

Uses the ped dataframe, which has full complement of parents and the uPed dataframe, which has all uninformative parents removed to add back single parents to the uPed dataframe where one parent is known. The parents are added back to the pedigree as an ID record with NA for both sire and dam of the added back ID.

1	addBackSecondParents(uPed, ped)

`uPed`	a trimmed pedigree dataframe with uninformative founders removed.
`ped`	a trimmed pedigree

A dataframe with pedigree with single parents added.

examplePedigree <- nprcgenekeepr::examplePedigree
breederPed <- qcStudbook(examplePedigree, minParentAge = 2,
                         reportChanges = FALSE,
                         reportErrors = FALSE)
probands <- breederPed$id[!(is.na(breederPed$sire) &
                               is.na(breederPed$dam)) &
                               is.na(breederPed$exit)]
ped <- getProbandPedigree(probands, breederPed)
nrow(ped)
p <- removeUninformativeFounders(ped)
nrow(p)
p <- addBackSecondParents(p, ped)
nrow(p)