Assumes genotype has been opened by checkGenotypeFile
Examples
library(nprcgenekeepr)
rhesusPedigree <- nprcgenekeepr::rhesusPedigree
rhesusGenotypes <- nprcgenekeepr::rhesusGenotypes
pedWithGenotypes <- addGenotype(ped = rhesusPedigree,
genotype = rhesusGenotypes)