diff --git a/Module 3/exo1/influenza-like-illness-analysis_en.Rmd b/Module 3/exo1/influenza-like-illness-analysis_en.Rmd index 648860ad7dfba8011c35bb3f2cc34ba27e04e310..1061c25d8edf1a165ff5982cda5a2f425cb0b307 100644 --- a/Module 3/exo1/influenza-like-illness-analysis_en.Rmd +++ b/Module 3/exo1/influenza-like-illness-analysis_en.Rmd @@ -9,23 +9,13 @@ knitr::opts_chunk$set(echo = TRUE) # Download data from *Réseau Sentinelles* and read data stored as `csv` from local files. Best choice to assure permanent access to dataset. -```{r} -setwd("~/ResearchReproductible") # Change working directory name -data_file <- read.csv2("incidence-PAY-3.csv", skip = 1) -``` - +`` ``` +Pour nous protéger contre une éventuelle disparition ou modification du serveur du Réseau Sentinelles, nous faisons une copie locale de ce jeux de données que nous préservons avec notre analyse. 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") } -``` - -If the code above has not worked, you can access it directly from the website ** Réseau Sentinelles**. Although the link below may expire and data may have been modified. +``` -```{r} -data_url = "http://www.sentiweb.fr/datasets/incidence-PAY-3.csv" -data <- read.csv(data_url, skip=1) - -```