Prune a tree by removing all the branches above a given level.
treeprune(X, root = 1, level = 0)
Object of class
Index of the root vertex amongst the vertices of
Integer specifying the level above which the tree should be pruned.
X must be either a linear network, or a derived
object such as a point pattern on a linear network. The linear network
must be an acyclic graph (i.e. must not contain any loops) so that it
can be interpreted as a tree.
This function removes all vertices
treebranchlabels gives a
string more than
level characters long.
Object of the same kind as
treebranchlabels for calculating the branch labels.
deletebranch for removing entire branches.
extractbranch for extracting entire branches.
linnet for creating networks.
# make a simple tree m <- simplenet$m m[8,10] <- m[10,8] <- FALSE L <- linnet(vertices(simplenet), m) plot(L, main="") # compute branch labels tb <- treebranchlabels(L, 1) tbc <- paste0("[", tb, "]") text(vertices(L), labels=tbc, cex=2) # prune tree tp <- treeprune(L, root=1, 1) plot(tp, add=TRUE, col="blue", lwd=3)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.