fm_zip <- pscl::zeroinfl(art ~ . | 1, data = pscl::bioChemists)
set.seed(752)
BF1 <- BF(fm_zip,prior.hyp.explo=c(1,1,1))
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),tol=.001
)})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.