r <- raster(ncol = 200, nrow = 100)
projection(r) <- NA
extent(r) <- extent(0, 200, 0, 100)
set.seed(11)
dem <- fake_dem(r, n_random_data = ncell(r) * 0.01, z_range = c(0, 500))
mask_artifacts(m)
plot(m)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.