# Graphe par defaut
x<-1:50
y<-1:50+rnorm(50,0,4)
regression<-lm(y~x)
cook.dist(regression)
# Avertissement quand la distance vaut 80 pc de la distance theorique
cook.dist(regression,avert=0.8)
Run the code above in your browser using DataLab