data(Fleiss1993cont)
#
m1 <- metacont(n.psyc, mean.psyc, sd.psyc, n.cont, mean.cont, sd.cont,
data = Fleiss1993cont, sm = "MD",
text.random = "Random effects model (REML)", text.w.random = "DL")
#
# Use DerSimonian-Laird estimator of tau2
#
m2 <- update(m1, method.tau = "DL", common = FALSE,
text.random = "Random effects model (DL)", text.w.random = "DL")
#
# Merge results of the two meta-analyses
#
m12 <- metamerge(m1, m2)
m12
forest(m12, rightcols = c("effect", "ci", "w.common"))
# Show in addition the results for the Paule-Mandel estimate of
# between-study variance
#
m3 <- update(m1, method.tau = "PM",
text.random = "Random effects moded (PM)", text.w.random = "PM")
#
m123 <- metamerge(m12, m3, pooled2 = "random")
m123
data(Fleiss1993bin)
#
# Mantel-Haenszel method
#
m4 <- metabin(d.asp, n.asp, d.plac, n.plac, data = Fleiss1993bin,
studlab = paste(study, year), sm = "OR", random = FALSE,
text.common = "MH method", text.w.common = "MH")
#
# Peto method
#
m5 <- update(m4, method = "Peto", text.common = "Peto method",
text.w.common = "Peto")
#
# Merge results (show individual results for MH method)
#
m45 <- metamerge(m4, m5)
summary(m45)
forest(m45, digits = 4)
#
# Merge results (show individual results for Peto method)
#
m54 <- metamerge(m5, m4)
summary(m54)
forest(m54)
Run the code above in your browser using DataLab