Deletes or extracts a given branch of a tree.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
deletebranch(X, ...) ## S3 method for class 'linnet' deletebranch(X, code, labels, ...) ## S3 method for class 'lpp' deletebranch(X, code, labels, ...) extractbranch(X, ...) ## S3 method for class 'linnet' extractbranch(X, code, labels, ..., which=NULL) ## S3 method for class 'lpp' extractbranch(X, code, labels, ..., which=NULL)
Linear network (object of class
Character string. Label of the branch to be deleted or extracted.
Vector of character strings. Branch labels for the
vertices of the network, usually obtained from
Arguments passed to methods.
Logical vector indicating which vertices of the network
should be extracted. Overrides
The linear network
L <- X or
L <- as.linnet(X)
must be a tree, that is, it has no loops.
labels should be a character vector
giving tree branch labels for each vertex of the network.
It is usually obtained by calling
The branch designated by the string
code will be deleted
The return value is the result of deleting or extracting
this branch from
along with any data associated with this branch (such as points or marks).
Another object of the same type as
obtained by deleting or extracting the specified branch.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
# 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) # delete branch B LminusB <- deletebranch(L, "b", tb) plot(LminusB, add=TRUE, col="green") # extract branch B LB <- extractbranch(L, "b", tb) plot(LB, add=TRUE, col="red")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.