CDOoDocuments.StdDocumentDescDocuments.DocumentDescContainers.ViewDescViews.ViewDescStores.StoreDescDocuments.ModelDescContainers.ModelDescModels.ModelDescStores.ElemDescb ZTextViews.StdViewDescTextViews.ViewDescTextModels.StdModelDescTextModels.ModelDescTextModels.AttributesDesc'*!_ +Arial! <(Times New Roman!*uTTextRulers.StdRulerDescTextRulers.RulerDescTextRulers.StdStyleDescTextRulers.StyleDescZTextRulers.AttributesDesc$0ZGo model { for (i in 1:2) { process[i] ~ dnorm (0,.000001) } diff<-process[2]-process[1] taubatch~dgamma(0.01,0.01) sigmabatch<-1/sqrt(taubatch) for (j in 1:7) { batch[j] ~ dnorm (0,taubatch) } logsig~dflat() tau<-exp(-2*logsig) sigma<- exp(logsig) for (l in 1:27) { mu[l]<-process[p[l]]+batch[b[l]] } for (l in 1:27) { y[l]~ dnorm (mu[l],tau) } } list(b=c(1,1,1,1,2,2,3,3,3,4,4,4,5,5,5,5,5,5,5,5,6,6,6,6,6,7,7), p=c(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,1,2), y=c(82.72, 78.31, 82.20, 81.18, 80.06, 81.09, 78.71, 77.48, 76.06, 87.77, 84.42, 84.82, 78.61, 77.47, 77.80, 81.58, 77.50, 78.73, 78.23, 76.40, 81.64, 83.04, 82.40, 81.93, 82.96,NA,NA)) TextControllers.StdCtrlDescTextControllers.ControllerDescContainers.ControllerDescControllers.ControllerDesc aY?$0Zo *! <[ @Documents.ControllerDesc vz pk ~