data-raw/01_example_landscape.R

In landscapeecology/landscapemetrics: Landscape Metrics for Categorical Map Patterns

library(landscapetools)
library(NLMR)
library(terra)
library(usethis)

#### Create example datasets ####
set.seed(2018-05-12)

single_landscape_create = function(x) {
    NLMR::nlm_randomcluster(ncol = 30, nrow = 30, p = 0.4, ai = c(0.25, 0.25, 0.5),
                            rescale = FALSE)
}

# Example maps from NLMR
landscape <- terra::wrap(terra::rast(single_landscape_create()))

usethis::use_data(landscape, overwrite = TRUE)