Nothing
context("Test for lets.subsetPAM")
data(PAM)
test_that("lets.subsetPAM works fine, remove.cells = TRUE", {
resu_test <- lets.subsetPAM(PAM, PAM[[3]][1:20])
expect_equal(class(resu_test)[1], "PresenceAbsence")
expect_equal(class(resu_test[[1]])[1], "matrix")
expect_true(inherits(resu_test[[2]], "SpatRaster"))
expect_equal(class(resu_test[[3]])[1], "character")
response <- summary(resu_test)
expect_true(response$Cellswithoutanypresence == 0)
})
test_that("lets.subsetPAM works fine, remove.cells = FALSE", {
resu_test <- lets.subsetPAM(PAM, PAM[[3]][1:20],
remove.cells = FALSE)
expect_equal(class(resu_test)[1], "PresenceAbsence")
expect_equal(class(resu_test[[1]])[1], "matrix")
expect_true(inherits(resu_test[[2]], "SpatRaster"))
expect_equal(class(resu_test[[3]])[1], "character")
response <- summary(resu_test)
expect_true(response$Cellswithoutanypresence > 0)
})
test_that("lets.subsetPAM error check", {
expect_error(lets.subsetPAM(PAM, "Bruno"))
expect_error(lets.subsetPAM(PAM[[1]], PAM[[3]][1:20]))
expect_error(lets.subsetPAM(PAM, 1))
expect_error(lets.subsetPAM(PAM[[1]], PAM[[3]][1:20]))
expect_error(lets.subsetPAM(PAM, PAM[[3]][1:20], 1))
expect_warning(lets.subsetPAM(PAM, c("Bruno", PAM[[3]][1:20])))
})
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.