diff --git a/module3/exo1/analyse-syndrome-grippal.Rmd b/module3/exo1/analyse-syndrome-grippal.Rmd index 5ed424379e42c12bf98e772122b55615d4df2cff..a4203e9e212ef88a97eb42c11dd2fd4b38df88fa 100644 --- a/module3/exo1/analyse-syndrome-grippal.Rmd +++ b/module3/exo1/analyse-syndrome-grippal.Rmd @@ -23,11 +23,12 @@ knitr::opts_chunk$set(echo = TRUE) 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} +# Downloaded file locally to avoid changes in URL, etc. file="incidence-PAY-3.csv" if(!file.exists(file)){ data_url = "http://www.sentiweb.fr/datasets/incidence-PAY-3.csv" download.file(url = data_url, destfile = "incidence-PAY-3.csv")) -data=read.csv("incidence-PAY-3.csv") +data=read.csv("incidence-PAY-3.csv", skip = 1) } ``` @@ -47,10 +48,6 @@ Voici l'explication des colonnes donnée sur le [sur le site d'origine](https:// | `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) -``` Regardons ce que nous avons obtenu: ```{r}