oleon12

library(ape)
library(phangorn)

##This is the tree who I'll want to calculate Vane-Wright index
##
tree <- read.tree("puranius.tre")
plot(tree)

##Now a read the table
##This table have terminal and the number of nodes who belong each terminal