model {
			for( i in 1 : N) {
				d[i] ~ dbern(p[i])
				logit(p[i]) <- beta0 + beta1 * age[i]
                   		}
			beta0 ~ dnorm(0.0,1.0E-6)
			beta1 ~ dnorm(0.0,1.0E-6)
		}

