# Beta Interval BF Methods Test
## Tests the output for beta_bayes_factor when method = "interval"
set.seed(77)
object <- dfba_beta_bayes_factor(a_post = 17,
b_post = 5,
method = "interval",
H0 = c(0, .5))
test_that("Show method works",{
expect_output(show(object))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.