# \donttest{
# Load Gorilla data
data("gorillas", package = "inlabru")
# Take the mesh and transform it to latitude/longitude
tmesh <- stransform(gorillas$mesh, crs = CRS("+proj=longlat"))
# Compare original and transformed mesh
if (require(ggplot2, quietly = TRUE)) {
multiplot(
ggplot() +
gg(gorillas$mesh) +
ggtitle("Original mesh"),
ggplot() +
gg(tmesh) +
ggtitle("Transformed mesh")
)
}
# }
if (FALSE) {
# Note: Only run this if you want to change the inlabru options for this session
# Determine current bru defaults:
bo <- bru_options_get()
init.tutorial()
# Check if it worked:
bru_options_get("control.inla")
}
Run the code above in your browser using DataLab