# make a function and image data
xcoord <- linfun(function(x,y,seg,tp) { x }, simplenet)
integral(xcoord)
integral(xcoord, exact=TRUE)
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