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(is.inside(gorillas$mesh, gorillas$nests))
  # Also works for locations not stored as SpatialPoints object
  loc <- coordinates(gorillas$nests)
  all(is.inside(gorillas$mesh, loc))
}
}
Run the code above in your browser using DataLab