tests/testthat/test-cramer.von.mises.R

test_that("Example 6.16", {
  expect_equal(cramer.von.mises(ch6$salivaF, ch6$salivaM)$pval.stat,
               0.33418367)
  expect_equal(cramer.von.mises(ch6$salivaF, ch6$salivaM)$pval,
               "p-value >= 0.10")
  expect_equal(cramer.von.mises(ch6$salivaF, ch6$salivaM,
                                alternative = "greater")$pval,
               "p-value >= 0.05")
})

Try the ANSM5 package in your browser

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

ANSM5 documentation built on Sept. 11, 2024, 6:45 p.m.