tests/testthat/test-kruskal.wallis.vdW.R

In ANSM5: Functions and Data for the Book "Applied Nonparametric Statistical Methods", 5th Edition

test_that("Example 7.2", {
  tmp <- kruskal.wallis.vdW(ch7$age, ch7$positions)
  expect_equal(tmp$pval.exact.stat, 2.33260844)
  expect_equal(tmp$pval.exact, 0.33578921)
  expect_equal(
    kruskal.wallis.vdW(ch7$age, ch7$positions, do.exact = FALSE,
                       do.asymp = TRUE)$pval.asymp.stat, 2.33260844)
  expect_equal(
    kruskal.wallis.vdW(ch7$age, ch7$positions, do.exact = FALSE,
                       do.asymp = TRUE)$pval.asymp, 0.31151611)
})