# Intervalle de confiance des moyennes conditionnelles
x<-1:50
y<-1:50+rnorm(50,0,4)
regression<-lm(y~x)
plot(x,y)
abline(regression)
reg.ci(regression,type="moy",col="red")
# Intervalle de confiance a 99 pc des valeurs individuelles
reg.ci(regression,conf.level=0.99,type="ind",col="blue",lty=2)
Run the code above in your browser using DataLab