model # y= Teneur en proteines # Spad = mesure de transmittance # alpha=paramètres de la régression # 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 }