# NOT RUN {
nTip <- 8L
tree <- BalancedTree(nTip)
edge <- tree$edge
pruningwise <- NeworderPruningwise(nTip, tree$Nnode, edge[, 1], edge[, 2],
dim(edge)[1])
cladewise <- NeworderPhylo(nTip, edge[, 1], edge[, 2], dim(edge)[1], 1L)
postorder <- NeworderPhylo(nTip, edge[, 1], edge[, 2], dim(edge)[1], 2L)
tree$edge <- tree$edge[pruningwise, ]
# }
Run the code above in your browser using DataCamp Workspace