# NOT RUN {
data(SimGeno_example, LH_HSg5, package="sequoia")
SeqOUT <- sequoia(GenoM = SimGeno_example,
LifeHistData = LH_HSg5, MaxSibIter = 0)
MaybePO <- GetMaybeRel(GenoM = SimGeno_example,
SeqList = SeqOUT)
Maybe <- GetMaybeRel(GenoM = SimGeno_example,
Pedigree = SeqOUT$PedigreePar, ParSib="sib")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab