Nothing
test_that("SpatRaster", {
# create data
x <- terra::rast(matrix(c(1, 2, 4, 1, NA, 1)))
# convert to binary stack
y <- binary_stack(x)
# run tests
expect_inherits(y, "SpatRaster")
expect_equal(terra::nlyr(y), 4)
expect_true(is_comparable_raster(x, y))
expect_equal(c(terra::values(y[[1]])), c(1, 0, 0, 1, NA, 1))
expect_equal(c(terra::values(y[[2]])), c(0, 1, 0, 0, NA, 0))
expect_equal(c(terra::values(y[[3]])), c(0, 0, 0, 0, NA, 0))
expect_equal(c(terra::values(y[[4]])), c(0, 0, 1, 0, NA, 0))
})
test_that("Raster", {
# create data
r <- terra::rast(matrix(c(1, 2, 4, 1, NA, 1)))
# convert to binary stack
x <- binary_stack(r)
expect_warning(
y <- binary_stack(raster::raster(r)),
"deprecated"
)
# tests
expect_equal(
setNames(terra::as.data.frame(x), c("X1", "X2", "X3", "X4")),
terra::as.data.frame(terra::rast(y))
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.