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, nsim = 100)
ran1
print(ran1, cumulative.rankprob = TRUE)
# Also print mean ranks
summary(ran1)
plot(ran1)
Run the code above in your browser using DataLab