x <- reorder(x, "pruningwise")
mat <- matrix(x$edge[, 2], ncol = 2, byrow = TRUE)
nodes <- x$edge[seq(by = 2, length.out = nb.node), 1]
x <- reorder(x, "pruningwise")
mat <- matrix(x$edge[, 2], ncol = 2, byrow = TRUE)
nodes <- x$edge[seq(by = 2, length.out = nb.node), 1]