tests/testthat/test-pearson.beta.R

test_that("Example 11.2", {
  tmp <- pearson.beta(ch11$reportedtime, ch11$parentlimit, H0 = 1)
  expect_equal(tmp$stat, 1.10714286)
  expect_equal(tmp$pval.exact.stat, 0.139175550)
  expect_equal(tmp$pval.exact, 0.79246032)
  expect_equal(pearson.beta(ch11$reportedtime[1:6], ch11$parentlimit[1:6],
                            H0 = 1)$pval.exact, 0.0027777778)
})

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.