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