if (FALSE) {
if(require(ape) && require(adephylo)){
data(carni70, package = "adephylo")
tre <- read.tree(text = carni70$tre)
adiv:::EH(tre)
adiv:::EH(tre, select=c("Mustela.nigripes", "Mustela.frenata", "Puma.concolor"))
adiv:::EH(tre, select=c(1,68,70))
}
}
Run the code above in your browser using DataLab