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