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