From 5e92b64a8671e3c60b75c6c5437cf12d53dad0ca Mon Sep 17 00:00:00 2001
From: Louis Lacoste <louis.lacoste@hotmail.fr>
Date: Mon, 21 Nov 2022 23:30:48 +0100
Subject: [PATCH] Ajout des histogrammes de l'incidence

---
 module3/exo2/exercice_R_fr.org | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/module3/exo2/exercice_R_fr.org b/module3/exo2/exercice_R_fr.org
index 66b7cef..ae48290 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]]
-- 
2.18.1