## CI plot for network Lu and Ades 2006
data(smoke)
# increase n.iter to reach convergence of MCMC
nma.out <- nma.ab(smoke$sid, smoke$tid, smoke$r, smoke$n,
model = "het_cor", trtname = c("No contact", "Self-help",
"Individual counselling", "Group counselling"), param=c("AR"),
n.adapt = 1000, n.iter = 100)
ci.plot(nma.out)
ci.plot(nma.out, FALSE)Run the code above in your browser using DataLab