## CI plot for network Ara 2009
data(Ara09)
attach(Ara09)
nma.ab(s.id = Study.ID, t.id = Treatment, event.n = r, total.n = n,
f.name = "Ara09_", n.iter = 2000, dic = FALSE)
detach(Ara09)
ci.plot(summary.stat = read.table("Ara09_Summary.stat", header = TRUE),
graphtitle = "CI plot of estimated event rate for Ara09 network")
## CI plot for network Lam 2007
data(Lam07.Summary)
data(Lam07)
ci.plot(summary.stat = Lam07.Summary, trtname = Lam07$trtname,
graphtitle = "CI plot of estimated event rate for Lam07 network")Run the code above in your browser using DataLab