data(Fleiss1993bin)
# Common effect and random effects meta-analysis
ma1 <- metabin(d.asp, n.asp, d.plac, n.plac, data = Fleiss1993bin,
studlab = paste(study, year), sm = "OR")
# Naive pooling
ma2 <- 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
ma12 <- metaadd(ma1, data = ma2)
ma12
forest(ma12)
Run the code above in your browser using DataLab