# NOT RUN {
fit <- ppm(cells ~ x)
rr <- residuals(fit)
integral(rr)
# vector-valued measure
rs <- residuals(fit, type="score")
integral(rs)
# multitype
fitA <- ppm(amacrine ~ x)
rrA <- residuals(fitA)
sapply(split(rrA), integral)
# multitype and vector-valued
rsA <- residuals(fitA, type="score")
sapply(split(rsA), integral)
## integral over a subregion
integral(rr, domain=square(0.5))
## integrals over the tiles of a tessellation
integral(rr, domain=quadrats(cells, 2))
# }
Run the code above in your browser using DataLab