# NOT RUN {
X <- runiflpp(2, simplenet)
Y <- runiflpp(5, simplenet)
# image on network
D <- density(Y, 0.1, verbose=FALSE)
f <- as.linfun(D)
f
f(X)
# tessellation on network
Z <- lineardirichlet(Y)
g <- as.linfun(Z)
g(X)
h <- as.linfun(Z, values = runif(5))
h(X)
# }
Run the code above in your browser using DataLab