# 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)
# age differences limit which relationships are considered:
MaybePO3 <- GetMaybeRel(GenoM = SimGeno_example,
Ped = SeqOUT$PedigreePar)
# }
Run the code above in your browser using DataLab