Nothing
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)
)})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.