CDOoDocuments.StdDocumentDescDocuments.DocumentDescContainers.ViewDescViews.ViewDescStores.StoreDesc Documents.ModelDescContainers.ModelDescModels.ModelDescStores.ElemDesc? 7 TextViews.StdViewDescTextViews.ViewDescTextModels.StdModelDescTextModels.ModelDescQTextModels.AttributesDesc*! model { for (i in 1:2) { process[i] ~ dnorm (0,.000001) } diff<-process[2]-process[1] logsigb ~ dflat() taubatch<- exp(-2*logsigb) sigmabatch<- exp(logsigb) 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)) list (process=c(80,80),logsigb=2, logsig=1) list( batch = c( 2.133788791329761,1.491146429193666,-0.4222122956969384,6.377256359315011,-0.7806587872688793,3.367458891534264,0), logsig = 0.4072410764110769, logsigb = 1.020793478636127, process = c( 79.52498715137015,79.1226619842747)) list( batch = c( 2.829753150248942,2.826247250030288,-1.139843844070784,5.063340209237942,0.7203145159417247, 4.569332465489564,-0.04369990791532198), logsig = 0.4686490794644492, logsigb = 1.066360171020139, process = c( 79.17909622974969,78.4552122084676), y = c( NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 77.84937820883289,80.53389440821452)) TextControllers.StdCtrlDescTextControllers.ControllerDescContainers.ControllerDescControllers.ControllerDesc TextRulers.StdRulerDescTextRulers.RulerDescTextRulers.StdStyleDescTextRulers.StyleDescZTextRulers.AttributesDesc$0Zo *! <[ @Documents.ControllerDesc vz pk ~