# NOT RUN {
data(Ped_HSg5, SimGeno_example, LH_HSg5, package="sequoia")
SeqOUT <- sequoia(GenoM = SimGeno_example, LifeHistData = LH_HSg5,
Module="par", quiet=TRUE, Plot=FALSE)
DyadCompare(Ped1=Ped_HSg5, Ped2=SeqOUT$Pedigree)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab