tests/testthat/test-Hurlbert_rarefaction.R

test_that("Hurlbert rarefaction matches vegan", {
  ab <- 1:50
  k <- 27
  expect_equal(hRare(ab, k)
               , as.numeric(vegan::rarefy(ab, k)))
})
mikeroswell/MeanRarity documentation built on May 5, 2024, 4:50 p.m.