# NOT RUN {
X <- rpoispp(function(x,y) { exp(3+3*x) })
fit <- ppm(X, ~x+y)
rp <- residuals(fit, type="pearson")
rs <- residuals(fit, type="score")
plot(rp)
plot(rs)
plot(rs, how="contour")
# }
Run the code above in your browser using DataLab