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 DataCamp Workspace