# NOT RUN {
if (require("BayesFactor")) {
# Bayesian t-test
model <- ttestBF(x = rnorm(100, 1, 1))
model_parameters(model)
model_parameters(model, cohens_d = TRUE, ci = .9)
# Bayesian contingency table analysis
data(raceDolls)
bf <- contingencyTableBF(raceDolls, sampleType = "indepMulti", fixedMargin = "cols")
model_parameters(bf,
centrality = "mean",
dispersion = TRUE,
verbose = FALSE,
cramers_v = TRUE
)
}
# }
Run the code above in your browser using DataLab