From b03700843873360a5a8a10aca50683396c478260 Mon Sep 17 00:00:00 2001
From: Clement MOLINA <email@example.comclement.molina@yahoo.com>
Date: Thu, 31 Aug 2023 17:15:10 +0200
Subject: [PATCH] creation fichier cours

---
 module3/analyse cours.Rmd | 58 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 module3/analyse cours.Rmd

diff --git a/module3/analyse cours.Rmd b/module3/analyse cours.Rmd
new file mode 100644
index 0000000..7fe69f9
--- /dev/null
+++ b/module3/analyse cours.Rmd	
@@ -0,0 +1,58 @@
+---
+title: "Analyse de l'incidence du syndrome grippal"
+author: "Clément MOLINA"
+date: "2023-08-31"
+output: html_document
+---
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(echo = TRUE)
+```
+
+```{r}
+data_url = "https://www.sentiweb.fr/datasets/incidence-PAY-3.csv?v=4bf55"
+```
+
+```{r}
+data = read.csv(data_url, skip = 1)
+head(data)
+```
+
+```{r}
+tail(data)
+```
+
+```{r}
+lignes_na = apply(data, 1, function (x) any(is.na(x)))
+data [lignes_na,]
+```
+```{r}
+class(data$week)
+```
+```{r}
+class(data$inc)
+```
+```{r}
+data = read.csv(data_url, skip = 1,na.strings = "-")
+```
+
+```{r}
+lignes_na = apply(data, 1, function (x) any(is.na(x)))
+data [lignes_na,]
+```
+```{r}
+library(parsedate)
+```
+```{r}
+convert_date = function(date) {
+  ws = paste(date)
+  iso = paste0(substring(ws,1,4),"-W",substring(ws,5,6))
+  iso
+  parse_iso_8601(iso)
+}
+```
+
+```{r}
+data$date = sapply(data$week, FUN = convert_date)
+```
+
-- 
2.18.1