| 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,) |
| } |
| } |