tests/testthat/test-moses.extreme.reactions.R

test_that("Example 6.14", {
  tmp <- moses.extreme.reactions(ch6$groupI, ch6$groupII)
  expect_equal(tmp$pval.exact.stat, 12)
  expect_equal(tmp$pval.exact, 0.0148844963)
  tmp <- moses.extreme.reactions(ch6$groupI.trimmed, ch6$groupII)
  expect_equal(tmp$pval.exact, 0.036404772)
  expect_equal(tmp$pval.exact.stat, 10)
  expect_equal(
    moses.extreme.reactions(ch6$groupI.amended, ch6$groupII)$pval.exact,
    0.03989045)
})

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.