data(Fleiss1993bin)
# Common effect and random effects meta-analysis
m1 <- metabin(d.asp, n.asp, d.plac, n.plac, data = Fleiss1993bin,
studlab = paste(study, year), sm = "OR")
# Naive pooling
m2 <- metabin(sum(d.asp), sum(n.asp), sum(d.plac), sum(n.plac),
data = Fleiss1993bin, sm = "OR", text.common = "Naive pooling")
# Add results of second meta-analysis from common effect model
m12 <- metaadd(m1, data = m2, method.common = "Naive pooling")
m12
forest(m12)
Run the code above in your browser using DataLab