# NOT RUN {
data(Senn2013)
net1 <- netmeta(TE, seTE, treat1, treat2, studlab,
data = Senn2013, sm = "MD",
comb.random = FALSE)
nr1 <- netrank(net1)
nr1
print(nr1, sort = FALSE)
# }
# NOT RUN {
net2 <- netmeta(TE, seTE, treat1, treat2, studlab,
data = Senn2013, sm = "MD")
nr2 <- netrank(net2)
nr2
print(nr2, sort = "fixed")
print(nr2, sort = FALSE)
# }
# NOT RUN {
# }
# NOT RUN {
net3 <- netmeta(TE, seTE, treat1, treat2, studlab,
data = Senn2013, sm = "MD")
nr3 <- netrank(net3, method = "SUCRA", nsim = 100)
nr3
print(nr3, sort = "fixed")
print(nr3, sort = FALSE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab