tests/testthat/test-dominance.R

In diversityArch: Computes Diversity Indices for Archaeological Data

test_that(
  "Dominance index. Returns 0.58175",
  {
    expected <- 0.57853
    data(Qesem_s)
    actual <- dominance(Qesem_s$HU)
    expect_equal(round(actual,5), round(expected,5))
  }
)