CDOoDocuments.StdDocumentDescDocuments.DocumentDescContainers.ViewDescViews.ViewDescStores.StoreDescDocuments.ModelDescContainers.ModelDescModels.ModelDescStores.ElemDesc TextViews.StdViewDescTextViews.ViewDescTextModels.StdModelDescTextModels.ModelDescTextModels.AttributesDesc1$Courier New  $Courier New|+ #------------------------------------------------------------------------------------------------------------------------------ Version 1 #------------------------------------------------------------------------------------------------------------------------------ model{ # model's likelihood for (i in 1:n){ mu[i] <- m + alpha[ class[i] ] grade[i] ~ dnorm( mu[i], tau ) } #### stz constraints alpha[1] <- -sum(alpha[2:TUTORS]) #### CR Constraints # alpha[1] <- 0.0 # priors m~dnorm( 0.0, 1.0E-04) for (i in 2:TUTORS){ alpha[i]~dnorm(0.0, 1.0E-04)} tau ~dgamma( 0.01, 0.01) s <- sqrt(1/tau) # precision } INITS list( m=1.0, alpha=c(NA, 0,0,0), tau=1.0 ) DATA (LIST) list( n=25, TUTORS=4, grade=c(84, 58, 100, 51, 28, 89, 97, 50, 76, 83, 45, 42, 83, 64, 47, 83, 81, 83, 34, 61, 77, 69, 94, 80, 55, 79), class=c(1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4) ) TextControllers.StdCtrlDescTextControllers.ControllerDescContainers.ControllerDescControllers.ControllerDesc TextRulers.StdRulerDescTextRulers.RulerDescTextRulers.StdStyleDescTextRulers.StyleDescZTextRulers.AttributesDesc$ ZGo * ,[ @Documents.ControllerDesc t]s ' `h*