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