## CI plot for network Middleton 2010
data(Middleton10)
attach(Middleton10)
set.seed(12345)
nma.ab(s.id = sid, t.id = tid, event.n = r, total.n = n,
f.name = "Middleton10_", n.iter = 500, dic = FALSE)
detach(Middleton10)
ci.plot(summary.stat = read.table("Middleton10_Summary.stat", header = TRUE),
graphtitle = "CI plot of estimated event rate for network Middleton10",
trtname = c("First generation", "Hysterectomy", "Second generation",
"Mirena"))Run the code above in your browser using DataLab