CDOoDocuments.StdDocumentDescDocuments.DocumentDescContainers.ViewDescViews.ViewDescStores.StoreDesc> Documents.ModelDescContainers.ModelDescModels.ModelDescStores.ElemDesc TextViews.StdViewDescTextViews.ViewDesc. TextModels.StdModelDescTextModels.ModelDesc8 0 QTextModels.AttributesDesc* #Random effects model for multi-arm trials and model{ for(i in 1:ns){ w[i,1] <-0 delta[i,t[i,1]]<-0 mu[i] ~ dnorm(0,.0001) for (k in 1:na[i]) { r[i,t[i,k]] ~ dbin(p[i,t[i,k]],n[i,t[i,k]]) } logit(p[i,t[i,1]])<-mu[i] for (k in 2:na[i]) { logit(p[i,t[i,k]])<-mu[i] + delta[i,t[i,k]] delta[i,t[i,k]] ~ dnorm(md[i,t[i,k]],taud[i,t[i,k]]) md[i,t[i,k]] <- d[t[i,k]] - d[t[i,1]] + sw[i,k] taud[i,t[i,k]] <- tau *2*(k-1)/k w[i,k] <- (delta[i,t[i,k]] - d[t[i,k]] + d[t[i,1]]) sw[i,k] <-sum(w[i,1:k-1])/(k-1) } } d[ref]<-0 for (k in 1:(ref-1)){d[k] ~ dnorm(0,.0001) } for (k in (ref+1):nt){d[k] ~ dnorm(0,.0001) } sd~dnorm(0,1)I(0,1) tau<-1/pow(sd,2) #Calculation of step for thresholds for(j in 1:20){ thres[j]<-1+0.05*j for(k in 1:nt){ lw.t.b[k,j]<-step(thres[j]-or[k,best]) predlw.t.b[k,j]<-step(thres[j]-pred.or[k,best]) }} #Calculation of predictions for (c in 1:nt) { for (k in 1:nt) { x[c,k]<-d[c] - d[k] pred.lor[c,k] ~dnorm(x[c,k],tau) pred.or[c,k] <- exp(pred.lor[c,k] ) } } # re-parametrize the predictions to use in the ranking according to predictions y[4]<-0 for(c in 1:3){ y[c]<-pred.lor[c,4] +y[4]} y[5]<-y[4]-pred.lor[4,5] #effectiveness for(k in 1:nt){ order[k]<-rank(d[],k) # THIS IS when the outcome is positive--omit 'nt+1-' when the outcome is negative pred.order[k]<-rank(y[],k) most.effective[k]<-equals(order[k],1) pred.most.effective[k]<-equals(pred.order[k],1) for(j in 1:nt){ effectiveness[k,j]<-equals(order[k],j) pred.effectiveness[k,j]<-equals(pred.order[k],j)} } #collect results based on your reference for (c in 1:nt) { OR[c] <- exp(d[c] - d[ref] ) LOR[c]<-d[c] - d[ref] } for (c in 1:nt) { X[c]<-d[c] - d[ref] predLOR[c] ~dnorm( X[c],tau) predOR[c] <- exp(predLOR[c] ) } } TextControllers.StdCtrlDescTextControllers.ControllerDescContainers.ControllerDescControllers.ControllerDesc TextRulers.StdRulerDescTextRulers.RulerDescTextRulers.StdStyleDescTextRulers.StyleDescZTextRulers.AttributesDesc$ ZGo * ,[ @Documents.ControllerDesc Ws8 [h