diff --git a/module3/exo2/exercice_fr.Rmd b/module3/exo2/exercice_fr.Rmd index 6ad6fb601e9415803956cd8f1ee413702916771b..cf0b627ce028c5e76421c63eed2005c23a8f40ff 100644 --- a/module3/exo2/exercice_fr.Rmd +++ b/module3/exo2/exercice_fr.Rmd @@ -1,5 +1,5 @@ --- -title: "Analyse de l'incidence du syndrôme grippal" +title: "Analyse de l'incidence du varicelle" author: "Mohamed EL BOUAZZATI" output: pdf_document: @@ -23,12 +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} -data_url ="http://www.sentiweb.fr/datasets/incidence-PAY-3.csv" +data_url ="https://www.sentiweb.fr/datasets/incidence-PAY-7.csv" ``` ```{r} -data_file ="syndrome-grippal.csv" +data_file ="Varicelle.csv" if (!file.exists(data_file)) { download.file(data_url, data_file, method="auto") } @@ -141,7 +141,7 @@ pic_annuel = function(annee) { Nous devons aussi faire attention aux premières et dernières années de notre jeux de données. Les données commencent en octobre 1984, ce qui ne permet pas de quantifier complètement le pic attribué à 1985. Nous l'enlevons donc de notre analyse. Par contre, pour une exécution en octobre 2018, les données se terminent après le 1er août 2018, ce qui nous permet d'inclure cette année. ```{r} -annees = 1986:2018 +annees = 1992:2018 ``` Nous créons un nouveau jeu de données pour l'incidence annuelle, en applicant la fonction `pic_annuel` à chaque année: