tests/testthat/test_BFzeroinfl.R

fm_zip <- pscl::zeroinfl(art ~ . | 1, data = pscl::bioChemists)
set.seed(752)
BF1 <- BF(fm_zip)
test_that("BF.zeroinfl exploratory hypotheses correctly evaluated", {
  expect_equivalent(
    BF1$PHP_exploratory[,1],c(0.000,0.006,0.674,0.006,0.938,0.000,0.000)
)})

Try the BFpack package in your browser

Any scripts or data that you put into this service are public.

BFpack documentation built on Oct. 20, 2023, 5:09 p.m.