Commit 7d1c667b authored by mamane's avatar mamane

update_analys_synd

parent 1a430e91
...@@ -22,6 +22,7 @@ knitr::opts_chunk$set(echo = TRUE) ...@@ -22,6 +22,7 @@ knitr::opts_chunk$set(echo = TRUE)
## Préparation des données ## Préparation des données
Les données de l'incidence du syndrome grippal sont téléchargés et disponibles au niveau local Les données de l'incidence du syndrome grippal sont téléchargés et disponibles au niveau local
```{r}
data_local = read.csv("C:/incidence-PAY-3.csv") data_local = read.csv("C:/incidence-PAY-3.csv")
``` ```
...@@ -42,17 +43,21 @@ Voici l'explication des colonnes donnée sur le [sur le site d'origine](https:// ...@@ -42,17 +43,21 @@ 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`. La première ligne du fichier CSV est un commentaire, que nous ignorons en précisant `skip=1`.
### Téléchargement ### Téléchargement
```{r} ```{r}
data = read.csv("C:/incidence-PAY-3.csv", skip=1) data = read.csv("C:/incidence-PAY-3.csv", skip=1)
``` ```
Regardons ce que nous avons obtenu: Regardons ce que nous avons obtenu:
```{r} ```{r}
head(data) head(data)
tail(data) tail(data)
``` ```
Y a-t-il des points manquants dans nos données ? Y a-t-il des points manquants dans nos données ?
```{r} ```{r}
na_records = apply(data, 1, function (x) any(is.na(x))) na_records = apply(data, 1, function (x) any(is.na(x)))
data[na_records,] data[na_records,]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment