Creates a function which returns the tree branch membership label for any location on a linear network.
branchlabelfun(L, root = 1)Linear network (object of class "linnet").
The network must have no loops.
Root of the tree. An integer index identifying
which point in vertices(L) is the root of the tree.
A function (of class "linfun").
The linear network L
must be an acyclic graph (i.e. must not contain any loops) so that it
can be interpreted as a tree.
The result of f <- branchlabelfun(L, root) is
a function f which gives,
for each location on the linear network L,
the tree branch label at that location.
Tree branch labels are explained in treebranchlabels.
The result f also belongs to the class "linfun".
It can be called using several different kinds of data,
as explained in the help for linfun.
The values of the function are character strings.
# NOT RUN {
# make a simple tree
m <- simplenet$m
m[8,10] <- m[10,8] <- FALSE
L <- linnet(vertices(simplenet), m)
# make function
f <- branchlabelfun(L, 1)
plot(f)
X <- runiflpp(5, L)
f(X)
# }
Run the code above in your browser using DataLab