context("Test for iucn_cont")
status <- sample(c("EN","VU", "NT", "CR", "DD", "LC", "EX", "NE"),
30, replace = TRUE)
data(IUCN)
test_that("iucn_cont works fine", {
transV <- lets.iucncont(status)
expect_true(is.numeric(transV))
#matrix transformation
transM <- lets.iucncont(IUCN)
expect_true(is.data.frame(transM))
transV2 <- lets.iucncont(status, dd = 2, ne = 1)
expect_true(is.numeric(transV2))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.