data(dstr)
attach(dstr)
# Transforming the arm-level data to the contrast-based summaryies
edat <- data.edit(study,trt,d,n)
y <- edat$y
S <- edat$S
KR(y,S) # Results of the NMA analysis (log OR scale)
Run the code above in your browser using DataLab