# NOT RUN {
# for reproducibility
set.seed(123)
library(tidyBF)
# ----------------------- one-way ANOVA -----------------------------------
# to get dataframe (between-subjects)
bf_oneway_anova(
data = iris,
x = Species,
y = Sepal.Length,
bf.prior = 0.8,
output = "dataframe"
)
# to get expression (within-subjects) (needs `BayesFactor 0.9.12-4.3` or above)
if (utils::packageVersion("BayesFactor") >= package_version("0.9.12-4.3")) {
bf_oneway_anova(
data = bugs_long,
x = condition,
y = desire,
subject.id = subject,
paired = TRUE,
output = "expression"
)
}
# ------------------- two-samples tests -----------------------------------
# to get dataframe (between-subjects)
bf_ttest(
data = mtcars,
x = am,
y = wt,
paired = FALSE,
bf.prior = 0.880,
output = "dataframe"
)
# to get expression (within-subjects)
bf_ttest(
data = dplyr::filter(bugs_long, condition %in% c("LDLF", "LDHF")),
x = condition,
y = desire,
subject.id = subject,
paired = TRUE,
bf.prior = 0.880,
output = "dataframe"
)
# ------------------- one-samples test -----------------------------------
# to get expression
bf_ttest(
data = iris,
x = Sepal.Length,
test.value = 5.85,
output = "expression"
)
# }
Run the code above in your browser using DataLab