Nothing
context("Test for lets.maplizer")
data(PAM)
data(IUCN)
trait <- IUCN$Description_Year
test_that("lets.maplizer works fine", {
resu_test <- lets.maplizer(PAM, trait, PAM$S)
expect_equal(class(resu_test)[1], "matrix")
expect_true(ncol(resu_test) == 3)
})
test_that("lets.maplizer works fine, other func", {
resu_test <- lets.maplizer(PAM, trait, PAM$S, func = sd)
expect_equal(class(resu_test)[1], "matrix")
expect_true(ncol(resu_test) == 3)
})
test_that("lets.maplizer works fine", {
resu_test <- lets.maplizer(PAM, trait, PAM$S, ras = TRUE)
expect_equal(class(resu_test)[1], "list")
expect_equal(class(resu_test[[1]])[1], "matrix")
expect_true(inherits(resu_test[[2]], "SpatRaster"))
expect_true(ncol(resu_test[[1]]) == 3)
})
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.