data(Fleiss1993cont)
#
ma1 <- metacont(n.psyc, mean.psyc, sd.psyc, n.cont, mean.cont, sd.cont,
data = Fleiss1993cont, sm = "SMD", studlab = paste(study, year))
#
ma2 <- metacont(n.psyc, mean.psyc, sd.psyc, n.cont, mean.cont, sd.cont,
data = Fleiss1993cont, sm = "SMD", studlab = paste(study, year),
method.smd = "glass")
mb12 <-
metabind(ma1, ma2, name = c("Hedges' g", "Glass' delta"), common = FALSE)
as.data.frame(mb12)
Run the code above in your browser using DataLab