From f58be3925e45e5434964148c1afbb917086af89d Mon Sep 17 00:00:00 2001
From: Louis Hognon <louishognon@outlook.fr>
Date: Sat, 18 Apr 2020 09:31:26 +0200
Subject: [PATCH] Modification exercice 3-01 module 3

---
 module3/exo1/analyse-syndrome-grippal.Rmd | 38 +++++++++++++++++++++++
 1 file changed, 38 insertions(+)

diff --git a/module3/exo1/analyse-syndrome-grippal.Rmd b/module3/exo1/analyse-syndrome-grippal.Rmd
index 771e78f..4383d98 100644
--- a/module3/exo1/analyse-syndrome-grippal.Rmd
+++ b/module3/exo1/analyse-syndrome-grippal.Rmd
@@ -26,6 +26,21 @@ Les données de l'incidence du syndrome grippal sont disponibles du site Web du
 data_url = "http://www.sentiweb.fr/datasets/incidence-PAY-3.csv"
 ```
 
+
+Pour eviter une éventuelle disparition du serveur du Réseau Sentinelles, nous faisons une copie locale de ce jeux de données que nous préservons  Il est inutile et même risquée de télécharger les données à chaque exécution, car dans le cas d'une panne nous pourrions remplacer nos données par un fichier défectueux. Pour cette raison, nous téléchargeons les données seulement si la copie locale n'existe pas.
+```{r}
+data_file = "syndrome-grippal.csv"
+if (!file.exists(data_file)) {
+    download.file(data_url, data_file, method="auto")
+}
+```
+
+
+
+
+
+
+
 Voici l'explication des colonnes donnée sur le [sur le site d'origine](https://ns.sentiweb.fr/incidence/csv-schema-v1.json):
 
 | Nom de colonne | Libellé de colonne                                                                                                                |
@@ -41,12 +56,35 @@ Voici l'explication des colonnes donnée sur le [sur le site d'origine](https://
 | `geo_insee`  | Code de la zone géographique concernée (Code INSEE) http://www.insee.fr/fr/methodes/nomenclatures/cog/                            |
 | `geo_name`   | Libellé de la zone géographique (ce libellé peut être modifié sans préavis)                                                       |
 
+
+
+
+
 La première ligne du fichier CSV est un commentaire, que nous ignorons en précisant `skip=1`.
 ### Téléchargement
 ```{r}
 data = read.csv(data_url, skip=1)
 ```
 
+### Lecture
+```{r}
+data = read.csv(data_file, skip=1)
+data = read.csv(data_url, skip=1)
+```
+
+
+
+
+
+
+
+
+
+
+
+
+
+
 Regardons ce que nous avons obtenu:
 ```{r}
 head(data)
-- 
2.18.1