tests/testthat/test-rarefaction.R

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)))
})
KevCaz/ecoocc documentation built on Aug. 7, 2021, 8:22 p.m.