data(geneaJi)
genJi<-gen.genealogy(geneaJi)
gen.entropy(genJi, type="IND")
gen.entropyVar(genJi, type="IND")
gen.entropyVar(genJi, type="MEAN")
data(genea140)
gen140<-gen.genealogy(genea140)
gen.entropy(gen140)
gen.entropy(gen140, pro=c(454422, 676521, 677273, 717537, 717634, 717709, 868572))
gen.entropyVar(gen140, pro=c(454422, 676521, 677273, 717537, 717634, 717709, 868572))
gen.entropyVar(gen140, pro=c(454422, 676521, 677273, 717537, 717634, 717709, 868572), type="MEAN")
#gen.entropy(gen140, pro=c(454422, 676521, 677273, 717537, 717634, 717709, 868572), type="IND")
#gen.entropyVar(gen140, pro=c(454422, 676521, 677273, 717537, 717634, 717709, 868572), type="IND")Run the code above in your browser using DataLab