# 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 DataCamp Workspace