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