-## reorder.phylo.R (2012-09-03)
+## reorder.phylo.R (2012-10-12)
## Internal Reordering of Trees
io <- pmatch(order, ORDER)
if (is.na(io)) stop("ambiguous order")
order <- ORDER[io]
+ nb.edge <- dim(x$edge)[1]
if (!is.null(attr(x, "order")))
- if (attr(x, "order") == order) return(x)
+ if (attr(x, "order") == order)
+ if (index.only) return(1:nb.edge) else return(x)
nb.node <- x$Nnode
if (nb.node == 1) return(x)
nb.tip <- length(x$tip.label)
- nb.edge <- dim(x$edge)[1]
if (io == 3) {
x <- reorder(x)
neworder <-