# NOT RUN {
library(nprcgenekeepr)
rhesusPedigree <- nprcgenekeepr::rhesusPedigree
rhesusGenotypes <- nprcgenekeepr::rhesusGenotypes
pedWithGenotypes <- addGenotype(ped = rhesusPedigree,
genotype = rhesusGenotypes)
hasGenotype(pedWithGenotypes)
# }
Run the code above in your browser using DataLab