---
title: "module 3 exo 2 varicelle"
author: "NK"
date: "07.07.2025"
output: html_document
---


```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

## Préparation des données

Les données de l'incidence de la varicelle 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 1990 et se termine avec une semaine récente. L'URL est:
```{r}
data_url = "https://www.sentiweb.fr/datasets/all/inc-7-PAY.csv"
```
```{r}
varicelle <- read_csv("inc-7-PAY.csv", skip = 1)
varicelle$year <- substr(varicelle$week, 1, 4)
total_par_annee <- aggregate(inc ~ year, data = varicelle, sum, na.rm = TRUE)
taux_par_annee <- aggregate(inc100 ~ year, data = varicelle, mean, na.rm = TRUE)

```
```{r}
total_par_annee[which.max(total_par_annee$inc), ]
taux_par_annee[which.max(taux_par_annee$inc100), ]
```

```{r}
total_par_annee[which.min(total_par_annee$inc), ]
taux_par_annee[which.min(taux_par_annee$inc100), ]
```




## Quelques explications
https://www.sentiweb.fr/datasets/all/inc-7-PAY.csv