- ## xx: vecteur donnant la distance d'un
- ## noeud ou tip à partir de la racine
- xx <- numeric(n + n.node)
+ ## the following must start at the root and follow the
+ ## edges contiguously; so the tree must be either in cladewise
+ ## order (or in pruningwise but the for loop must start from
+ ## the bottom of the edge matrix)