From e45484a95d04a231e4f3c8ac78f5dbad01181573 Mon Sep 17 00:00:00 2001
From: Clement MOLINA <email@example.comclement.molina@yahoo.com>
Date: Mon, 4 Sep 2023 16:21:46 +0200
Subject: [PATCH] mis a jour

---
 module3/analyse cours.Rmd | 28 +++++++++++++++++++++++-----
 1 file changed, 23 insertions(+), 5 deletions(-)

diff --git a/module3/analyse cours.Rmd b/module3/analyse cours.Rmd
index 7fe69f9..78be6b0 100644
--- a/module3/analyse cours.Rmd	
+++ b/module3/analyse cours.Rmd	
@@ -44,15 +44,33 @@ data [lignes_na,]
 library(parsedate)
 ```
 ```{r}
-convert_date = function(date) {
-  ws = paste(date)
+convert_date = function(w) {
+  ws = paste(w)
   iso = paste0(substring(ws,1,4),"-W",substring(ws,5,6))
-  iso
-  parse_iso_8601(iso)
+  as.character(parse_iso_8601(iso))
 }
 ```
 
 ```{r}
-data$date = sapply(data$week, FUN = convert_date)
+data$date = as.Date(convert_date(data$week))
+```
+
+```{r}
+class(data$date)
+```
+```{r}
+data = data[order(data$date),]
+```
+
+
+```{r}
+all(diff(data$date) == 7)
+```
+```{r}
+plot(data$date, data$inc, type="l", xlab="Date", ylab="Incidence hebdomadaire")
+```
+
+```{r}
+with(tail(data, 200), plot(date, inc, type="l", xlab="Date", ylab="Incidence hebdomadaire"))
 ```
 
-- 
2.18.1