data(smokingcessation)
pw1 <- pairwise(list(treat1, treat2, treat3),
event = list(event1, event2, event3), n = list(n1, n2, n3),
data = smokingcessation, sm = "OR")
nma1 <- netmeta(pw1, common = FALSE)
netdistance(nma1)
# \donttest{
pw2 <- pairwise(studlab = study, treat = treatment,
n = n, mean = mean, sd = sd, data = Senn2013,
varnames = c("MD", "seMD"))
nma2 <- netmeta(pw2)
netdistance(nma2)
netdistance(nma2$A.matrix)
# }
Run the code above in your browser using DataLab