-## reorder.phylo.R (2012-08-01)
+## reorder.phylo.R (2012-08-17)
## Internal Reordering of Trees
.C("neworder_cladewise", as.integer(nb.tip),
as.integer(x$edge[, 1]), as.integer(x$edge[, 2]),
as.integer(nb.edge), integer(nb.edge),
- PACKAGE = "ape")[[5]]
+ DUP = FALSE, NAOK = TRUE, PACKAGE = "ape")[[5]]
} else {
##node.degree <- tabulate(x$edge[, 1])
neworder <-
as.integer(nb.node), as.integer(x$edge[, 1]),
as.integer(x$edge[, 2]), as.integer(nb.edge),
integer(nb.edge), PACKAGE = "ape")[[6]]
- }
+ }
x$edge <- x$edge[neworder, ]
if (!is.null(x$edge.length))
x$edge.length <- x$edge.length[neworder]