# NOT RUN {
# Interpretation of one Bayes factor
bfactor_interpret(1.5)
# Interpretation of many Bayes factors
bfactor_interpret(c(0.1, 1.2, 3.5, 13.9, 150))
# Application: chi-squared goodness-of-fit test.
# Strength of the evidence provided by the lower
# bound on the Bayes factor in favor of the null hypothesis:
x <- matrix(c(12, 15, 14, 15), ncol = 2)
bfactor_interpret(bcal(chisq.test(x)[["p.value"]]))
# }
Run the code above in your browser using DataLab