# NOT RUN {
# make some data
xcoord <- linfun(function(x,y,seg,tp) { x }, simplenet)
integral(xcoord)
X <- as.linim(xcoord)
integral(X)
# integrals inside each tile of a tessellation
A <- quadrats(Frame(simplenet), 3)
integral(X, A)
# }
Run the code above in your browser using DataLab