pw <- pairwise(treatment, event = r, n = N, studlab = author,
data = Woods2010, sm = "OR")
nma <- netmeta(pw, small.values = "desirable")
set.seed(1909) # get reproducible results
rnk <- rankogram(nma, common = FALSE, nsim = 10, # reduce runtime
keep.samples = TRUE)
rnk
rankogram(rnk$samples.random)
Run the code above in your browser using DataLab