data(geneaJi)
genJi<-gen.genealogy(geneaJi)
gen.completeness(genJi, type="IND")
gen.completenessVar(genJi)
gen.completenessVar(genJi, genNo=4) # For the 4th generation
## For a more complex example:
#data(genea140)
#gen140<-gen.genealogy(genea140)
#gen.completeness(gen140)
#gen.completenessVar(gen140)Run the code above in your browser using DataLab