Graphique des résidus par rapport au levier (Residuals vs Leverage plot)

Application

# Soit m le modèle de régression
par(mfrow=c(1,1))
plot(m)

Interprétation

Lorsque des données se situent au-delà de la distance de Cook sur le graphique, cela indique la présence de valeurs extrêmes.

Exemple

Voici nos données et notre fichier d'analyse:

Importons nos données:

df <- read.csv("residuals-vs-leverage-plot.csv")

Créons ensuite le modèle de régression à tester:

m <- lm(score ~ predicteur, data=df)

Puis, réalisons notre graphique:

par(mfrow=c(1,1))
plot(m, col="brown")

Le graphique montre clairement qu'une donnée (la donnée n°1) est en dehors de la distance de Cook. Il s'agit donc d'une valeur extrême.