data(Olkin1995)
m1 <- metabin(ev.exp, n.exp, ev.cont, n.cont,
data = Olkin1995, studlab = paste(author, year),
sm = "RR", method = "I")
# L'Abbe plot for risk ratio
#
labbe(m1)
# L'Abbe plot for odds ratio
#
labbe(m1, sm = "OR")
# same plot
labbe(update(m1, sm = "OR"))
# L'Abbe plot for risk difference
#
labbe(m1, sm = "RD")
# L'Abbe plot on log odds scale
#
labbe(m1, sm = "OR", backtransf = FALSE)
# L'Abbe plot for odds ratio with coloured lines for various
# treatment effects (defined as log odds ratios)
#
mycols <- c("blue", "yellow", "green", "red", "green", "yellow", "blue")
labbe(m1, sm = "OR", random = FALSE,
TE.common = log(c(1 / 10, 1 / 5, 1 / 2, 1, 2, 5, 10)),
col.common = mycols, lwd.common = 2)
# L'Abbe plot on log odds scale with coloured lines for various
# treatment effects (defined as log odds ratios)
#
labbe(m1, sm = "OR", random = FALSE, backtransf = FALSE,
TE.common = log(c(1 / 10, 1 / 5, 1 / 2, 1, 2, 5, 10)),
col.common = mycols, lwd.common = 2)
Run the code above in your browser using DataLab