# Data set: Replications of power on egocentric behavior
esci_meta_pdiff_two <- data.frame(
studies = c(
"Online",
"Original",
"Online Pilot",
"Exact replication"
),
control_egocentric = c(
33,
4,
4,
7
),
control_sample_size = c(
101,
33,
10,
53
),
power_egocentric = c(
48,
8,
4,
11
),
power_sample_size = c(
105,
24,
12,
56
),
setting = as.factor(
c(
"Online",
"In-Person",
"Online",
"In-Person"
)
)
)
# Meta-analysis, risk difference as effect size
estimate <- esci::meta_proportion(
esci_meta_pdiff_two,
power_egocentric,
power_sample_size,
studies
)
# Forest plot
myplot_forest <- esci::plot_meta(estimate)
# Meta-analysis, risk difference as effect size, moderator (setting)
estimate_moderator <- esci::meta_proportion(
esci_meta_pdiff_two,
power_egocentric,
power_sample_size,
studies,
moderator = setting
)
# Forest plot
myplot_forest_moderator <- esci::plot_meta(estimate_moderator)
Run the code above in your browser using DataLab