data(Fentress)
require(dplyr, quietly = TRUE)
require(sjlabelled, quietly = TRUE)
pain_cis <- Fentress |>
gen_bst_df(pain ~ group)
names(pain_cis)[1] = "Mean"
pain_cis = pain_cis |>
var_labels(Mean = "Pain reduction")
pain_cis |>
effect_plot(x = Cohort, y = Mean)
Run the code above in your browser using DataLab