CDOoDocuments.StdDocumentDescDocuments.DocumentDescContainers.ViewDescViews.ViewDescStores.StoreDesc Documents.ModelDescContainers.ModelDescModels.ModelDescStores.ElemDesc TextViews.StdViewDescTextViews.ViewDescy TextModels.StdModelDescTextModels.ModelDesc  }TextModels.AttributesDesc1$Courier New ;$Courier New| .**uTTextRulers.StdRulerDescTextRulers.RulerDescTextRulers.StdStyleDescTextRulers.StyleDescTextRulers.AttributesDescL Zo Z%$.6?HLQ*uTgL Zo Z%$.6?HLQ =*:~*uTgL Zo Z%$.6?HLQ#------------------------------------------------------------------------------------------------------------------------------ # Political Party data # Data takes from Agrest (2002), page 303, Table 7.15, problem 7.3 #------------------------------------------------------------------------------------------------------------------------------ # Model 2: POISSON LOG-LINEAR #------------------------------------------------------------------------------------------------------------------------------ model{ # model's likelihood for (i in 1:n){ for (k in 1:K){ # stochastic part y[i,k] ~ dpois( lambda[i,k]) # log(lambda[i,k]) <- mu[ gender[i]+1, race[i]+1 ] + beta[1,k] + beta[2,k]*gender[i] + beta[3,k]*race[i] } } # for (j in 1:P){ # coefficients for the baseline category are constrained to zero beta[j,1] <- 0.0 # independent normal low information priors for (k in 2:K){ beta[j,k] ~ dnorm( 0.0, 0.001) } } mu[1,1]~dnorm( 0.0, 0.001) mu[1,2]~dnorm( 0.0, 0.001) mu[2,1]~dnorm( 0.0, 0.001) mu[2,2]~dnorm( 0.0, 0.001) } INITS list( beta=structure(.Data=c(NA, 0, 0, NA, 0, 0, NA, 0, 0), .Dim = c(3, 3)), mu=structure(.Data=c(0, 0, 0, 0), .Dim = c(2, 2)) ) DATA (LIST) list( n=4, K=3, P=3, gender = c(1, 1, 0, 0), race = c(1, 0, 1, 0), y = structure( .Data=c(132, 42, 172, 56, 176, 6, 129, 4, 127, 12, 130, 15), .Dim = c(4, 3) ) )  node mean sd MC error 2.5% median 97.5% start sample beta[1,2] 1.365 0.167 0.009634 1.027 1.366 1.702 5001 5000 beta[1,3] -1.149 0.2498 0.0181 -1.654 -1.151 -0.6642 5001 5000 beta[2,2] 0.2636 0.2085 0.01086 -0.1369 0.2631 0.6714 5001 5000 beta[2,3] -0.07261 0.1591 0.006729 -0.3807 -0.0706 0.2384 5001 5000 beta[3,2] -3.275 0.2064 0.008268 -3.675 -3.275 -2.87 5001 5000 beta[3,3] 1.326 0.2532 0.01818 0.8403 1.33 1.801 5001 5000  TextControllers.StdCtrlDescTextControllers.ControllerDescContainers.ControllerDescControllers.ControllerDesc aY?$ ZGo * ,[ @Documents.ControllerDesc t]s ' `h*