Nothing
test_that("output from ifr_cochran_qtest matches the expected result", {
k <- ifr_cochran_qtest(exam, exam1, exam2, exam3)
expect_equal(k$n, 15)
expect_equal(k$df, 2)
expect_equal(k$q, 4.75)
expect_equal(k$pvalue, 0.093)
})
test_that("ifr_cochran_qtest throws appropriate errors", {
expect_error(
ifr_cochran_qtest(exam, exam1, exam2),
"Please specify at least 3 variables."
)
expect_error(
ifr_cochran_qtest(hsb, female, schtyp, race),
"Please specify dichotomous/binary variables only."
)
})
test_that("output from cochran test is as expected", {
expect_snapshot(ifr_cochran_qtest(exam, exam1, exam2, exam3))
})
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.