if (FALSE) {
if (bru_safe_inla(quietly = TRUE)) {
# Load Gorilla data
data("gorillas", package = "inlabru")
# Check if all Gorilla nests are inside the mesh
all(fm_is_within(gorillas$nests, gorillas$mesh))
# Also works for locations not stored as SpatialPoints object
loc <- coordinates(gorillas$nests)
all(fm_is_within(loc, gorillas$mesh))
}
}
Run the code above in your browser using DataLab