# NOT RUN {
data(SeqOUT_griffin, FieldMums_griffin, package="sequoia")
PC.g <- PedCompare(Ped1 = cbind(FieldMums_griffin, sire=NA),
Ped2 = SeqOUT_griffin$Pedigree)
PlotPedComp(PC.g$Counts)
# }
Run the code above in your browser using DataLab