model

# y= Teneur en proteines
# Inn = Indice de nutrition azote
# alpha=paramtres de la rgression
# prec=1/variance 

{
     for (i in 1:N) {
          y[i] ~ dnorm(mu[i],prec)
          mu[i]<-alpha[1]+alpha[2]*Inn[i]
                          }
   
##Prior##
     for (j in 1:2) {
          alpha[j]~dnorm(0.0,1.0E-7)
                         }

	     var~dunif(0,10000)
		prec<-1/var			
							
}