## Health economic evaluation --- example for Chapter 3 --- Model for the EVPPI
## Loosely based on Fox-Rushby & Cairns (2005). Economic Evaluation. Open University Press

model {
	for (s in 1:N.studies) {
		se[s] ~ dbin(pi[1],n[s])
		amb[s] ~ dbin(gamma,se[s])
	}
	pi[1] ~ dbeta(a.pi,b.pi)
	pi[2] <- pi[1]*rho
	gamma ~ dbeta(a.gamma,b.gamma)
	c.amb ~ dlnorm(m.amb,tau.amb)
	c.hosp ~ dlnorm(m.hosp,tau.hosp)

	for (t in 1:2) {
		SE[t] ~ dbin(pi[t],N)
		A[t] ~ dbin(gamma,SE[t])
		H[t] <- SE[t] - A[t]
	}
}