Skip to main content
. Author manuscript; available in PMC: 2008 Apr 30.
Published in final edited form as: Stat Med. 2008 Apr 30;27(9):1329–1350. doi: 10.1002/sim.3187
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,)
}
}