Update analyse-syndrome-grippal.Rmd

Téléchargement d'un fichier local

module3/exo1/analyse-syndrome-grippal.Rmd

@@ -21,10 +21,9 @@ knitr::opts_chunk$set(echo = TRUE)
 
 ## Préparation des données
 
-Les données de l'incidence du syndrome grippal sont disponibles du site Web du [Réseau Sentinelles](http://www.sentiweb.fr/). Nous les récupérons sous forme d'un fichier en format CSV dont chaque ligne correspond à une semaine de la période demandée. Nous téléchargeons toujours le jeu de données complet, qui commence en 1984 et se termine avec une semaine récente. L'URL est:
-```{r}
-data_url = "http://www.sentiweb.fr/datasets/incidence-PAY-3.csv"
-```
+Les données de l'incidence du syndrome grippal sont disponibles du site Web du [Réseau Sentinelles](http://www.sentiweb.fr/). Nous les récupérons sous forme d'un fichier en format CSV dont chaque ligne correspond à une semaine de la période demandée. Nous téléchargeons toujours le jeu de données complet, qui commence en 1984 et se termine avec une semaine récente. 
+L'URL qui nous a permis de télécharger les données est accessible : [ici](https://www.sentiweb.fr/datasets/incidence-PAY-3.csv)
+
 
 Voici l'explication des colonnes donnée sur le [sur le site d'origine](https://ns.sentiweb.fr/incidence/csv-schema-v1.json):
 
@@ -44,7 +43,7 @@ Voici l'explication des colonnes donnée sur le [sur le site d'origine](https://
 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)
+data = read.csv(file = 'C:/Users/utilisateur/Downloads/incidence-PAY-3.csv', skip=1)
 ```
 
 Regardons ce que nous avons obtenu:
@@ -161,3 +160,5 @@ Enfin, un histogramme montre bien que les épidémies fortes, qui touchent envir
 ```{r}
 hist(inc_annuelle$incidence, breaks=10, xlab="Incidence annuelle", ylab="Nb d'observations", main="")
 ```
+
+```