Nothing
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")
})
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.