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
PBS(y,S,B=10) # Results of the NMA analysis (log OR scale); B is recommended to be >= 1000.
Run the code above in your browser using DataLab