<testonly>op <- spatstat.options(npixel=32)</testonly>
X <- rpoispp(function(x,y) { exp(3+3*x) })
fit <- ppm(X, ~x+y)
<testonly>fit <- ppm(X, ~x+y, nd=16)</testonly>
plot(dfbetas(fit))
plot(smooth.msr(dfbetas(fit)))
<testonly>spatstat.options(op)</testonly>
Run the code above in your browser using DataLab