# NOT RUN {
# setup
library(statsExpressions)
set.seed(123)
# creating a `BayesFactor` object
bf_obj <-
BayesFactor::anovaBF(
formula = Sepal.Length ~ Species,
data = iris,
progress = FALSE
)
# extracting Bayes Factors in a dataframe
bf_extractor(bf_obj)
# }
Run the code above in your browser using DataLab