# NOT RUN {
# for reproducibility
set.seed(123)
# dataframe containing results
bf.df <-
statsExpressions::bf_extractor(BayesFactor::correlationBF(
x = iris$Sepal.Length,
y = iris$Petal.Length
)) %>%
dplyr::mutate(.data = ., bf.prior = 0.707)
# creating caption (for null)
statsExpressions::bf_expr(
bf.df = bf.df,
output = "null",
k = 3,
caption = "Note: Iris dataset"
)
# creating caption (for alternative)
statsExpressions::bf_expr(
bf.df = bf.df,
output = "alternative"
)
# }
Run the code above in your browser using DataLab