tests/testthat/test-rarefaction.R

In KevCaz/ecoocc: Occurrence, co-occurrence and more

context("Rarefaction")

mat <- rbind(c(1,1), c(1,1))
res1 <- ec_rarefaction(mat, 1)
res2 <- ec_rarefaction(mat, 5)

test_that("expected dimensions", {
  expect_true(all(dim(res1) == c(2,1)))
  expect_true(all(dim(res2) == c(2,5)))
})

test_that("expected value", {
  expect_true(all(res1 == matrix(2,2,1)))
  expect_true(all(res2 == matrix(2,2,5)))
})