# NOT RUN {
data(geneaJi)
genJi<-gen.genealogy(geneaJi)
gen.completeness(genJi, type="IND")
# For the 4th generation
gen.completeness(genJi, type="IND", genNo=4)
data(genea140)
gen140<-gen.genealogy(genea140)
gen.completeness(gen140)
# }
Run the code above in your browser using DataLab