## modified by EP so that it works without edge lengths too (2005-05-31):
nb.tip <- length(phy$tip.label)
nb.node <- phy$Nnode
## modified by EP so that it works without edge lengths too (2005-05-31):
nb.tip <- length(phy$tip.label)
nb.node <- phy$Nnode