- ## delete the internal edges that do not have descendants
- ## anymore (ie, they are in the 2nd column of `edge' but
+ internals <- edge2 <= Ntip
+ ## delete the internal edges that do not have anymore
+ ## descendants (ie, they are in the 2nd col of `edge' but