# Data set -- see Introduction to the New Statistics, 2nd edition
data("data_mccabemichael_brain")
# Meta-analysis: random effects, no moderator
estimate <- esci::meta_mdiff_two(
data = esci::data_mccabemichael_brain,
comparison_means = "M Brain",
comparison_sds = "s Brain",
comparison_ns = "n Brain",
reference_means = "M No Brain",
reference_sds = "s No Brain",
reference_ns = "n No Brain",
labels = "Study name",
effect_label = "Brain Photo Rating - No Brain Photo Rating",
assume_equal_variance = TRUE,
random_effects = TRUE
)
# Forest plot
myplot_forest <- esci::plot_meta(estimate)
# Meta-analysis: random effects, moderator
estimate_moderator <- esci::meta_mdiff_two(
data = esci::data_mccabemichael_brain,
comparison_means = "M Brain",
comparison_sds = "s Brain",
comparison_ns = "n Brain",
reference_means = "M No Brain",
reference_sds = "s No Brain",
reference_ns = "n No Brain",
labels = "Study name",
moderator = "Research group",
effect_label = "Brain Photo Rating - No Brain Photo Rating",
assume_equal_variance = TRUE,
random_effects = TRUE
)
# Forest plot
myplot_forest_moderator <- esci::plot_meta(estimate_moderator)
# Meta-analysis: random effects, moderator, output d_s
estimate_moderator_d <- esci::meta_mdiff_two(
data = esci::data_mccabemichael_brain,
comparison_means = "M Brain",
comparison_sds = "s Brain",
comparison_ns = "n Brain",
reference_means = "M No Brain",
reference_sds = "s No Brain",
reference_ns = "n No Brain",
labels = "Study name",
moderator = "Research group",
effect_label = "Brain Photo Rating - No Brain Photo Rating",
assume_equal_variance = TRUE,
random_effects = TRUE
)
# Forest plot
myplot_forest_moderator_d <- esci::plot_meta(estimate_moderator_d)
Run the code above in your browser using DataLab