tests/testthat/test-D_index.R

test_that("D_index", {
  testthat::expect_true(round(D_index(Cremains_measurements[1, ])$D, 4) == 0.5983)
  testthat::expect_true(round(D_index(Cremains_measurements[1, ], rand = F, B = 100)[[4]], 4)
  == 0.7701)
})

Try the TestDimorph package in your browser

Any scripts or data that you put into this service are public.

TestDimorph documentation built on Nov. 18, 2023, 1:11 a.m.