model{ |
for ( j in 1:16428 ){ |
npat[j]∼dbin(p[hosp[j], meas[j]],denom[j]) |
p[hosp[j], meas[j]] <- phi(a[meas[j]] + b[meas[j]]*theta[hosp[j]]) |
} |
for ( k in 1:2449 ){ |
theta[k]∼dnorm(0,1) |
} |
for ( h in 1:8 ){ |
a[h]∼dnorm(0,.0001) |
b[h]∼dnorm(0,.0001)I(0,) |
} |
} |