## summary RR-RD table 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)
create.tab(summary.stat = read.table("Middleton10_Summary.stat", header = TRUE),
type = "CI", f.name = "Middleton10-")Run the code above in your browser using DataLab