
Last chance! 50% off unlimited learning
Sale ends in
library(spatstat)
data(cells)
fit <- mpl(cells, ~ x, Strauss(0.1), correction="periodic")
fit
pred <- predict(fit)
pred <- predict(fit, nx=50, ny=50, type="trend")
plot(fit)
Run the code above in your browser using DataLab