diff --git a/02_a_application_abalone.Rmd b/02_a_application_abalone.Rmd index 2b810ac..f8374a9 100644 --- a/02_a_application_abalone.Rmd +++ b/02_a_application_abalone.Rmd @@ -104,6 +104,11 @@ abalone_lm <- lm(log(rings) ~ length + height + viscera.wt + sex, data = abalone summary(abalone_lm) ``` +Avec les intervalles de confiance. +```{r} +confint(abalone_lm) +``` + ```{r} plot(abalone_lm, which = 1, id.n = 5) ``` @@ -111,4 +116,11 @@ plot(abalone_lm, which = 1, id.n = 5) Observons les résidus en fonction des effets levier. ```{r} plot(abalone_lm, which = 5, id.n = 5) -``` \ No newline at end of file +``` + +# Interprétation du modèle linéaire + +Une augmentation de `length` de $1mm$ augmente la prédiction de $1.1$ anneaux avec un intervalle de confiance à $95\%$ qui vaut $[0.95,1.27]$. +De même pour les autres variables continues. + +Un passage de la variable `sex` de la catégorie de référence F à la catégorie I entraîne une diminution du nombre d'anneaux prédits de $0.12$ avec un intervalle de confiance à $95\%$ qui vaut $[-0.14,-0.10]$. \ No newline at end of file