model

# y= Teneur en proteines
# Spad = mesure de transmittance
# Inn = Mesure d'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]*Spad[i]+alpha[3]*Inn[i]
                          }
   
##Prior##
     for (j in 1:3) {
          alpha[j]~dnorm(0.0,1.0E-6)
                         }

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