model{
 for(i in 1:n){
   Death[i] ~ dbern(p[i])
   logit(p[i]) <- beta[1] + beta[2]*ISS[i] + beta[3]*RTS[i]
                    + beta[4]*AGE[i] + beta[5]*TI[i]
                    + beta[6]*AGE[i]*TI[i]
 }
 for(i in 1:6){ beta[i] ~ dflat() }
}