# 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", random = FALSE)
forest(m, studlab = mylabs, layout = "JAMA",
       fontfamily = "Times", fontsize = 10)
# }
Run the code above in your browser using DataLab