CDOoDocuments.StdDocumentDescDocuments.DocumentDescContainers.ViewDescViews.ViewDescStores.StoreDeschDocuments.ModelDescContainers.ModelDescModels.ModelDescStores.ElemDesc TextViews.StdViewDescTextViews.ViewDescXTextModels.StdModelDescTextModels.ModelDesc}TextModels.AttributesDesc'*; '* '*PS '* 9 Courier*uTTextRulers.StdRulerDescTextRulers.RulerDescTextRulers.StdStyleDescTextRulers.StyleDescTextRulers.AttributesDescL0ZGo Z%$.6?HLQ *IRT Model for Agency Preferences: Base Model No Covariates Josh Clinton: Adapted from code by Shawn Treier and Simon Jackman, July 2004. Change updating procedure to "slice updating" model{ for (i in 1:82){ for(j in 1:26){ for (cat in 1:(maxcat[j]-1)){ logit(Z[i,j,cat]) <- alpha[j,cat] - beta[j]*x[i] } Pi[i,j,1] <- Z[i,j,1] for(cat in 2:(maxcat[j]-1)){ Pi[i,j,cat] <- Z[i,j,cat] - Z[i,j,cat-1] } Pi[i,j,maxcat[j]] <- 1 - Z[i,j,maxcat[j]-1] y[i,j] ~ dcat(Pi[i,j,1:maxcat[j]]) } } for (i in 1:82){ x[i] ~ dnorm(0,1) } for (i in 1:26){ beta[i] ~ dnorm(0,.15) } for(j in 1:26){ tau[j,1] ~ dnorm(0.0,0.15) } for(j in 1:26){ tau[j,2] ~ dexp(2) } for(j in 1:26){ alpha[j,1] <- tau[j,1] for(k in 2:(maxcat[j]-1)){ alpha[j,k] <- sum(tau[j,1:k]) } } }  TextControllers.StdCtrlDescTextControllers.ControllerDescContainers.ControllerDescControllers.ControllerDesc aY?$0ZGo * <[ @Documents.ControllerDesc vz pk ~