Ajout des histogrammes de l'incidence

module3/exo2/exercice_R_fr.org

@@ -271,12 +271,12 @@ tail(inc_annuelle)
 #+end_src
 
 #+RESULTS:
-| 2013 | 698303 |
-| 2014 | 685048 |
-| 2015 | 605469 |
 | 2016 | 779816 |
 | 2017 | 552906 |
 | 2018 | 539765 |
+| 2019 | 584116 |
+| 2020 | 221183 |
+| 2021 | 377933 |
 
 ** Inspection
 
@@ -319,4 +319,12 @@ inc_annuelle[which.min(inc_annuelle$incidence),]
 
 #+RESULTS:
 :    annee incidence
-: 12  2002    515343
+: 30  2020    221183
+
+Enfin, un histogramme montre bien que les épidémies fortes, qui touchent environ 10% de la population française, sont assez rares: il y en eu trois au cours des 35 dernières années.
+#+BEGIN_SRC R :results output graphics file :file annual-inc-hist.png
+hist(inc_annuelle$incidence, breaks=10, xlab="Incidence annuelle", ylab="Nb d'observations", main="")
+#+END_SRC
+
+#+RESULTS:
+[[file:annual-inc-hist.png]]