Nothing
test_that("LLR is close to 0 if q0 = p",{
expect_equal({
calc_llr(data.table::data.table(cut = "AA1", n0 = 230, n1 = 23),
no_iteration = 1, p = 0.1)[["llr"]]
}, 0)
})
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.