From 35a7ff4a4b095d15a62ca3e9142505e513873e7a Mon Sep 17 00:00:00 2001
From: Clair Chaigne <c.chaigne@outlook.fr>
Date: Mon, 13 Apr 2020 15:47:37 +0200
Subject: [PATCH] new file mon analyse

---
 module3/README.md            |  2 ++
 module3/exo1/mon-analyse.Rmd | 36 ++++++++++++++++++++++++++++++++++++
 2 files changed, 38 insertions(+)
 create mode 100644 module3/exo1/mon-analyse.Rmd

diff --git a/module3/README.md b/module3/README.md
index 7d100eb..d882a2f 100644
--- a/module3/README.md
+++ b/module3/README.md
@@ -1 +1,3 @@
 Module 3
+
+this is a new commit
\ No newline at end of file
diff --git a/module3/exo1/mon-analyse.Rmd b/module3/exo1/mon-analyse.Rmd
new file mode 100644
index 0000000..9c8d0d6
--- /dev/null
+++ b/module3/exo1/mon-analyse.Rmd
@@ -0,0 +1,36 @@
+---
+title: "Analyse de l'incidence du syndrôle grippal"
+author : "Clair Ch"
+date : "13/04/2020"
+output: html_document
+---
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(echo = TRUE)
+```
+
+
+Je télécharge les données du site sentinelles en ignorant la première ligne qui contient les commentaires
+
+```{r}
+data_url<-"http://www.sentiweb.fr/datasets/incidence-PAY-3.csv"
+data<-read.csv(data_url, skip=1)
+head(data)
+```
+les colonnes qui nous intéressent sont "week" (1ère colonne, attention les données sont dans l'ordre chronologique inverse) et "inc" (3ème colonne, incidence du syndrome grippal)
+
+
+est-ce qu'il y a des points manquants ?
+
+```{r}
+lignes_na<-apply(data,1,function(x) any(is.na(x)))
+data[lignes_na,]
+```
+Il manque les données de l'année 1989 semaine 19
+
+Vérifier le type de données des colonnes qui nous intéressent
+```{r}
+class(data$week)
+class(data$inc)
+```
+Ce sont bien des entiers, tout va bien
-- 
2.18.1