data(geneaJi)
genJi<-gen.genealogy(geneaJi)
# There are 6 founders
gen.founder(genJi)
data(genea140)
gen140<-gen.genealogy(genea140)
founder140<-gen.founder(gen140)
# There are 7399 founders
length(founder140)
Run the code above in your browser using DataLab