Check whether an animal has both parents

Check whether an animal has both parents

Usage

hasBothParents(id, ped)

Arguments

id

a single ID to examine for parents. A vector of IDs is not supported: the result is not one value per ID, and a recycling warning appears only when the number of IDs does not divide the number of rows of ped.

ped

The pedigree information in data.frame format

Value

TRUE if ID has both sire and dam identified in ped, FALSE if one or both are unknown, and logical(0) if id is not in ped.

Examples

library(nprcgenekeepr)
ped <- nprcgenekeepr::pedOne
names(ped) <- c("id", "sire", "dam", "sex", "birth")
hasBothParents("o2", ped)
#> [1] TRUE
ped$sire[ped$id == "o2"] <- NA
hasBothParents("o2", ped)
#> [1] FALSE