# \donttest{
if (require(ggplot2, quietly = TRUE)) {
data("mrsea", package = "inlabru")
pxl <- fm_pixels(
mrsea$mesh,
dims = c(50, 50),
mask = mrsea$boundary,
format = "sp",
minimal = TRUE
)
ggplot() +
gg(pxl, fill = "blue", alpha = 0.75) +
gg(mrsea$mesh)
pxl <- fm_pixels(
mrsea$mesh,
dims = c(50, 50),
mask = mrsea$boundary,
format = "sf",
minimal = TRUE
)
ggplot() +
gg(pxl, geom = "tile", fill = "blue", alpha = 0.75) +
gg(mrsea$mesh)
}
# }
Run the code above in your browser using DataLab