# \donttest{
library(terra)
r1 <- rast(ncol=10, nrow=10, vals=runif(100, 0.12, 0.98))
r2 <- rast(ncol=10, nrow=10, vals=runif(100, 0, 1))
raster_list <- list(scenario1 = r1, scenario2 = r2)
result <- area.interval(
raster_list = raster_list,
interval = 0.1,
round = TRUE)
# }
Run the code above in your browser using DataLab