diff --git a/module3/exo2/exercice_R_fr.org b/module3/exo2/exercice_R_fr.org index 66b7cefad9471c86b540fd65573baa6ac7e6532d..ae482909fb6c8e2be9da0959c14e31e2f63898fe 100644 --- a/module3/exo2/exercice_R_fr.org +++ b/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]]