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