model
{
 # 
#  X[,1] = Bush Vote by CD in 2000
#  X[,2] = 1 if South (CQ def.), 0 otherwise
#  X[,3] = Percent Black in CD
#  X[,4] = Percent Hispanic in CD
#  X[,5] = Family income in Thousands of Dollars
#  X[,6] = DW-NOMINATE 1st Dimension
#  X[,7] = DW-NOMINATE 2nd Dimension
#  
#  PRIORS
#
         tau ~ dgamma(1.0E-1, 1.0E-1)
         for (k in 1 : 7) { beta[k] ~ dnorm(0,0.001)} # vague priors
#	  
# LIKELIHOOD	
#
    for (i in 1 : 432)  # loop over CDs
    {     
         Y[i] ~ dnorm( mu[i] , tau)
         mu[i] <- beta[1]+X[i,1]*beta[2]+X[i,2]*beta[3]+X[i,3]*beta[4]+X[i,4]*beta[5]+X[i,5]*beta[6]+X[i,6]*beta[7]
    }  
    sigma <- sqrt(1/tau)
 }