TE < − race.PO[2] − race.PO[1]
RR < − race.PO[2]/race.PO[1]
# Equations (5)–(9) are looped twice to avoid strata with n = 0
for (b in 1:4){for (c in 1:5){ for (a in 1:2){
s.r[a,b,c] ~ dbin(PO[a,4,4], mv.n[a,b,c])	#equation 5
p.r[a,b,c] < − sum.r.race[a] − (mv.r[a,b,c]-s.r[a,b,c])	#equation 6
new.PO[a,b,c] < − p.r[a,b,c]/sum.n.race[a]}	#equation 7
CDE[b,c] < − new.PO[2,b,c] − new.PO[1,b,c]	#equation 8
PA[b,c] < − 100 * (TE − CDE[b,c])/TE        }}	#equation 9
for (b in 5:5){for (c in 3:5){ for (a in 1:2){
s.r[a,b,c] ~ dbin(PO[a,4,4], mv.n[a,b,c])	#equation 5
p.r[a,b,c] < − sum.r.race[a] − (mv.r[a,b,c]-s.r[a,b,c])	#equation 6
new.PO[a,b,c] < − p.r[a,b,c]/sum.n.race[a]}	#equation 7
CDE[b,c] < − new.PO[2,b,c] − new.PO[1,b,c]	#equation 8
PA[b,c] < − 100 × (TE – CDE[b,c])/TE        }}   }	#equation 9