tests/testthat/test-Hedges_g.R

test_that("Hedges_gx", {
  library(TestDimorph)
  testthat::expect_true(round(Hedges_g(Cremains_measurements[1, ])$g, 4) == 1.6272)
  testthat::expect_true(round(Hedges_g(Cremains_measurements[1, ], rand = F, B = 100)[[2]], 4)
  == 0.8933)
})
bassam-abulnoor/TestDimorph documentation built on Jan. 29, 2021, 8:21 a.m.