model

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

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