if (FALSE) {
data(craterA)
est_spde <- est_intens_spde(coords=craterA)
image.plot(list(x=est_spde$intensest$xcol, y=est_spde$intensest$yrow,
z=log(t(est_spde$intensest$v))), main="estimated logarithmic intensity")
points(craterA)
}
Run the code above in your browser using DataLab