Nothing
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)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.