# \donttest{
library(terra)
nx <- ny <- 100L
r <- rast(nrows = ny, ncols = nx,
xmin = -nx/2, xmax = nx/2,
ymin = -ny/2, ymax = ny/2)
map_default <- neutralLandscapeMap(r)
if (interactive()) plot(map_default)
## Tweak smoothness:
map_rough <- neutralLandscapeMap(r, smooth = 1)
map_smooth <- neutralLandscapeMap(r, smooth = 8)
# }
Run the code above in your browser using DataLab