tests/testthat/test_application2_BF.lm.R

In BFpack: Flexible Bayes Factor Testing of Scientific Expectations

aov1 <- aov(price ~ anchor * motivation, data = tvprices)
#names(aov1$coefficients)
BF1 <- BF(aov1)
#check number of tests in exploratory ANOVA
test_that("BF.lm works for an exploratory ANOVA test regarding number of tests", {
expect_equivalent(
  dim(BF1$BFtu_exploratory),c(3,2)
)})
test_that("BF.lm works for a specific exploratory ANOVA test", {
expect_equivalent(
  round(BF1$PHP_exploratory[,1],3),c(0,0,.251)
)})