DFBA.Rcheck/00_pkg_src/DFBA/tests/testthat/test-methods-dfba_interval_BF.R

# 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))
})
danbarch/dfba documentation built on Jan. 30, 2024, 6:51 p.m.