# \donttest{
if (bru_safe_inla() &&
require(ggplot2, quietly = TRUE) &&
require(fmesher, quietly = TRUE)) {
# Load the Gorilla data
data <- gorillas_sf
# Plot the Gorilla nests, the mesh and the survey boundary
ggplot() +
geom_fm(data = data$mesh) +
gg(data$boundary, fill = "blue", alpha = 0.2) +
gg(data$nests, col = "red", alpha = 0.2)
# Define SPDE prior
matern <- INLA::inla.spde2.pcmatern(
data$mesh,
prior.sigma = c(0.1, 0.01),
prior.range = c(0.1, 0.01)
)
# Define domain of the LGCP as well as the model components (spatial SPDE
# effect and Intercept)
cmp <- geometry ~ field(geometry, model = matern) + Intercept(1)
# Fit the model (with int.strategy="eb" to make the example take less time)
fit <- lgcp(cmp, data$nests,
samplers = data$boundary,
domain = list(geometry = data$mesh),
options = list(control.inla = list(int.strategy = "eb"))
)
# Predict the spatial intensity surface
lambda <- predict(
fit,
fm_pixels(data$mesh, mask = data$boundary),
~ exp(field + Intercept)
)
# Plot the intensity
ggplot() +
gg(lambda, geom = "tile") +
geom_fm(data = data$mesh, alpha = 0, linewidth = 0.05) +
gg(data$nests, col = "red", alpha = 0.2)
}
# }
Run the code above in your browser using DataLab