diff --git a/module3/exo1/analyse-syndrome-grippal.Rmd b/module3/exo1/analyse-syndrome-grippal.Rmd index 20da42fe88b5fc3c244aa3f8d8c1f61e965ef41e..7d6a39ffdf5b9b60e68aa8857204b7c22b30b2a4 100644 --- a/module3/exo1/analyse-syndrome-grippal.Rmd +++ b/module3/exo1/analyse-syndrome-grippal.Rmd @@ -26,6 +26,15 @@ 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" ``` +```{r} +data_file = "dataGrippe.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,28 +50,12 @@ 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) -``` - -Copier les données téléchargées dans un fichier local +### Lecture des données a partir du fichier disponible ```{r} -write.table(data, "C:/Users/cc270930/Desktop/MOOC recherche reproductible/Module 3 - La main à la pâte, une analyse réplicable/dataGrippe.csv", - row.names = FALSE, sep = ";", dec=",", na = "-") +data = read.csv(data_file, skip=1) ``` - -Lire le fichier CSV sauvegardé en local - -```{r} -data = read.csv("C:/Users/cc270930/Desktop/MOOC recherche reproductible/Module 3 - La main à la pâte, une analyse réplicable/dataGrippe.csv", - sep = ";", header = TRUE, na = "-") -``` - - Regardons ce que nous avons obtenu: ```{r} head(data)