# NOT RUN {
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",
comb.random = FALSE,
TE.fixed = log(c(1 / 10, 1 / 5, 1 / 2, 1, 2, 5, 10)),
col.fixed = mycols, lwd.fixed = 2)
# L'Abbe plot on log odds scale with coloured lines for various
# treatment effects (defined as log odds ratios)
#
labbe(m1, sm = "OR",
comb.random = FALSE,
TE.fixed = log(c(1 / 10, 1 / 5, 1 / 2, 1, 2, 5, 10)),
col.fixed = mycols, lwd.fixed = 2,
backtransf = FALSE)
# }
Run the code above in your browser using DataLab