inst/tinytest/test_locations.R

In rassta: Raster-Based Spatial Stratification Algorithms

# Create SpatRaster of stratification units (2 blocks of categorical values)
su <- terra::rast(ncol = 4, nrow = 4, xmin=0, xmax=1, ymin=0, ymax=1)
su[] <- 0 # To suppress warning
terra::values(su)[1:8] <- 1
terra::values(su)[9:16] <- 2

# Create SpatRasters of landscape similarity to stratification units
su_1 <- terra::rast(ncol = 4, nrow = 4, xmin=0, xmax=1, ymin=0, ymax=1)
su_1[] <- 0
su_2 <- su_1
set.seed(963)
terra::values(su_1)[1:8] <- rnorm(8, 85, 5)
terra::values(su_1)[9:16] <- rnorm(8, 15, 5)
terra::values(su_2)[1:8] <- rnorm(8, 15, 5)
terra::values(su_2)[9:16] <- rnorm(8, 85, 5)
ls <- c(su_1, su_2)
names(ls) <- c("su_1", "su_2")

# Select representative locations
x <- locations(ls.rast = ls, su.rast = su)

# Test equality of similarity values at selected locations
expect_equal(max(terra::values(ls[[1]])), x$locations$land_sim[1])
expect_equal(max(terra::values(ls[[2]])), x$locations$land_sim[2])