# NOT RUN {
# Calculate NNT for RD = -0.21
# (Cochrane Handbook, version 5.1, subsection 12.5.4.1)
nnt(-0.21, sm = "RD")
# Calculate NNT for RR = 0.92 and baseline risk p.c = 0.3
# (Cochrane Handbook, version 5.1, subsection 12.5.4.2)
nnt(0.92, p.c = 0.3, sm = "RR")
# Calculate NNT for OR = 0.73 and baseline risk p.c = 0.3
# (Cochrane Handbook, version 5.1, subsection 12.5.4.3)
nnt(0.73, p.c = 0.3, sm = "OR")
# Use Mantel-Haenszel odds ratio to calculate NNTs
data(Olkin95)
m1 <- metabin(event.e, n.e, event.c, n.c, data = Olkin95,
comb.random = FALSE)
nnt(m1, comb.random = TRUE)
# }
Run the code above in your browser using DataLab