data(Fleiss1993bin)
# Use REML estimator of tau2 (default)
m1 <- metabin(d.asp, n.asp, d.plac, n.plac, data = Fleiss1993bin,
studlab = paste(study, year), sm = "OR",
text.random = "Random effects model (REML)", overall.hetstat = FALSE)
# Use DerSimonian-Laird estimator of tau2
m2 <- update(m1, method.tau = "DL")
# Add random effects results of second meta-analysis
m12 <- metaadd(m1, type = "random", data = m2,
TE = TE.random,
lower = lower.random, upper = upper.random,
statistic = statistic.random, pval = pval.random,
text = "Random effects model (DL)")
m12
forest(m12)
Run the code above in your browser using DataLab