segments(2, ci_non_smokers[1], 2, ci_non_smokers[2], lwd = 2, col = "green")
```
figure
figure : sur le lien : output: file:///Users/alexandre/Sujet-6-MOOC.html : 1er figure
En quoi ce résultat est-il surprenant ?
...
...
@@ -109,7 +109,7 @@ ggplot(taux_mortalite, aes(x = Age_Category, y = Mortality_Rate, fill = Smoker))
```
figure
figure sur le lien : output: file:///Users/alexandre/Sujet-6-MOOC.html : 3 ème figure (avant dernière)
ce résultat est surprenant car pour la classe d'âge 65 et plus, le taux de mortalité est pratiquement identique entre les fumeuses et non-fumeuses
...
...
@@ -151,7 +151,7 @@ ggplot(data, aes(x = Age, y = Death, color = Smoker)) +
```
figure
figure sur le lien : output: file:///Users/alexandre/Sujet-6-MOOC.html : 4ème figure (dernière)
Pour les âges inférieurs à 65 ans, le tabagisme est nocif puisque le taux de mortalité est plus élevé chez les fumeuses que les non-fumeuses mais au-dessus de cet âge (de 65 ans), la courbe s'inverse légèrement ce qui indique que le taux de mortalité est presque identique