# NOT RUN {
data(Fleiss1993bin)
refs <- 20 + 1:7
Fleiss1993bin$mylabs <-
JAMAlabels(study, year, refs, data = Fleiss1993bin)
m <- metabin(d.asp, n.asp, d.plac, n.plac, data = Fleiss1993bin,
studlab = paste(study, year),
sm = "OR", comb.random = FALSE)
forest(m, studlab = mylabs, layout = "JAMA",
fontfamily = "Times", fontsize = 10)
# }
Run the code above in your browser using DataLab