diff --git a/module2/exo2/exercice_fr.Rmd b/module2/exo2/exercice_fr.Rmd
index 7eece5e296bb586e88166aa8a263ca75b44c2b9e..e7246b5c5842fd621993ab24d8c11e0b4f4766dd 100644
--- a/module2/exo2/exercice_fr.Rmd
+++ b/module2/exo2/exercice_fr.Rmd
@@ -1,13 +1,13 @@
 ---
-title: "Votre titre"
-author: "Votre nom"
-date: "La date du jour"
+title: "Module 2 - Excercice 2"
+author: "Doévi BIAOU"
+date: "`r Sys.Date()`"
 output: html_document
 ---
 
 
 ```{r setup, include=FALSE}
-knitr::opts_chunk$set(echo = TRUE)
+knitr::opts_chunk$set(echo = FALSE)
 ```
 
 ## Quelques explications
@@ -31,3 +31,16 @@ Vous remarquerez le paramètre `echo = FALSE` qui indique que le code ne doit pa
 Comme les résultats ne sont pas stockés dans les fichiers Rmd, pour faciliter la relecture de vos analyses par d'autres personnes, vous aurez donc intérêt à générer un HTML ou un PDF et à le commiter.
 
 Maintenant, à vous de jouer! Vous pouvez effacer toutes ces informations et les remplacer par votre document computationnel.
+
+
+
+## Réponses
+
+```{r data_frame}
+df <- c(14.0, 7.6, 11.2, 12.8, 12.5, 9.9, 14.9, 9.4, 16.9, 10.2, 14.9, 18.1, 7.3, 9.8, 10.9,12.2, 9.9, 2.9, 2.8, 15.4, 15.7, 9.7, 13.1, 13.2, 12.3, 11.7, 16.0, 12.4, 17.9, 12.2, 16.2, 18.7, 8.9, 11.9, 12.1, 14.6, 12.1, 4.7, 3.9, 16.9, 16.8, 11.3, 14.4, 15.7, 14.0, 13.6, 18.0, 13.6, 19.9, 13.7, 17.0, 20.5, 9.9, 12.5, 13.2, 16.1, 13.5, 6.3, 6.4, 17.6, 19.1, 12.8, 15.5, 16.3, 15.2, 14.6, 19.1, 14.4, 21.4, 15.1, 19.6, 21.7, 11.3, 15.0, 14.3, 16.8, 14.0, 6.8, 8.2, 19.9, 20.4, 14.6, 16.4, 18.7, 16.8, 15.8, 20.4, 15.8, 22.4, 16.2, 20.3, 23.4, 12.1, 15.5, 15.4, 18.4, 15.7, 10.2, 8.9, 21.0)
+```
+
+```{r computing}
+summary(df)
+sd(df)
+```
diff --git a/module2/exo3/exercice_fr.Rmd b/module2/exo3/exercice_fr.Rmd
index 7eece5e296bb586e88166aa8a263ca75b44c2b9e..44b002a50168dbedd0e797b757fdbc7c22f14255 100644
--- a/module2/exo3/exercice_fr.Rmd
+++ b/module2/exo3/exercice_fr.Rmd
@@ -1,7 +1,7 @@
 ---
-title: "Votre titre"
-author: "Votre nom"
-date: "La date du jour"
+title: "Module 2 - Exercice 3"
+author: "Doévi BIAOU  "
+date: "`r Sys.Date()`"
 output: html_document
 ---
 
@@ -31,3 +31,29 @@ Vous remarquerez le paramètre `echo = FALSE` qui indique que le code ne doit pa
 Comme les résultats ne sont pas stockés dans les fichiers Rmd, pour faciliter la relecture de vos analyses par d'autres personnes, vous aurez donc intérêt à générer un HTML ou un PDF et à le commiter.
 
 Maintenant, à vous de jouer! Vous pouvez effacer toutes ces informations et les remplacer par votre document computationnel.
+
+
+## Devoir
+
+```{r data_frame}
+df <- c(14.0, 7.6, 11.2, 12.8, 12.5, 9.9, 14.9, 9.4, 16.9, 10.2, 14.9, 18.1, 7.3, 9.8, 10.9,12.2, 9.9, 2.9, 2.8, 15.4, 15.7, 9.7, 13.1, 13.2, 12.3, 11.7, 16.0, 12.4, 17.9, 12.2, 16.2, 18.7, 8.9, 11.9, 12.1, 14.6, 12.1, 4.7, 3.9, 16.9, 16.8, 11.3, 14.4, 15.7, 14.0, 13.6, 18.0, 13.6, 19.9, 13.7, 17.0, 20.5, 9.9, 12.5, 13.2, 16.1, 13.5, 6.3, 6.4, 17.6, 19.1, 12.8, 15.5, 16.3, 15.2, 14.6, 19.1, 14.4, 21.4, 15.1, 19.6, 21.7, 11.3, 15.0, 14.3, 16.8, 14.0, 6.8, 8.2, 19.9, 20.4, 14.6, 16.4, 18.7, 16.8, 15.8, 20.4, 15.8, 22.4, 16.2, 20.3, 23.4, 12.1, 15.5, 15.4, 18.4, 15.7, 10.2, 8.9, 21.0)
+df <- as.data.frame(df)
+```
+
+### Figure 1  
+
+```{r fig.cap="Sequence plot"}
+library(tidyverse)
+df <- df %>% mutate(id = 1:100, val = df)
+
+df %>% ggplot(aes(y = val, x = id)) + geom_line(color = "blue") + theme_bw()
+```
+
+### Figure 2 
+
+```{r}
+ggplot(df, aes(x = val)) + 
+  geom_histogram(bins = 10, fill = "blue", color = "black") +
+  theme_bw()
+```
+
diff --git a/module2/exo4/df.csv b/module2/exo4/df.csv
new file mode 100644
index 0000000000000000000000000000000000000000..0004055f8d4550f0a7a670c51e5d9fc3efc17ce9
--- /dev/null
+++ b/module2/exo4/df.csv
@@ -0,0 +1,101 @@
+"","df","id","val"
+"1",14,1,14
+"2",7.6,2,7.6
+"3",11.2,3,11.2
+"4",12.8,4,12.8
+"5",12.5,5,12.5
+"6",9.9,6,9.9
+"7",14.9,7,14.9
+"8",9.4,8,9.4
+"9",16.9,9,16.9
+"10",10.2,10,10.2
+"11",14.9,11,14.9
+"12",18.1,12,18.1
+"13",7.3,13,7.3
+"14",9.8,14,9.8
+"15",10.9,15,10.9
+"16",12.2,16,12.2
+"17",9.9,17,9.9
+"18",2.9,18,2.9
+"19",2.8,19,2.8
+"20",15.4,20,15.4
+"21",15.7,21,15.7
+"22",9.7,22,9.7
+"23",13.1,23,13.1
+"24",13.2,24,13.2
+"25",12.3,25,12.3
+"26",11.7,26,11.7
+"27",16,27,16
+"28",12.4,28,12.4
+"29",17.9,29,17.9
+"30",12.2,30,12.2
+"31",16.2,31,16.2
+"32",18.7,32,18.7
+"33",8.9,33,8.9
+"34",11.9,34,11.9
+"35",12.1,35,12.1
+"36",14.6,36,14.6
+"37",12.1,37,12.1
+"38",4.7,38,4.7
+"39",3.9,39,3.9
+"40",16.9,40,16.9
+"41",16.8,41,16.8
+"42",11.3,42,11.3
+"43",14.4,43,14.4
+"44",15.7,44,15.7
+"45",14,45,14
+"46",13.6,46,13.6
+"47",18,47,18
+"48",13.6,48,13.6
+"49",19.9,49,19.9
+"50",13.7,50,13.7
+"51",17,51,17
+"52",20.5,52,20.5
+"53",9.9,53,9.9
+"54",12.5,54,12.5
+"55",13.2,55,13.2
+"56",16.1,56,16.1
+"57",13.5,57,13.5
+"58",6.3,58,6.3
+"59",6.4,59,6.4
+"60",17.6,60,17.6
+"61",19.1,61,19.1
+"62",12.8,62,12.8
+"63",15.5,63,15.5
+"64",16.3,64,16.3
+"65",15.2,65,15.2
+"66",14.6,66,14.6
+"67",19.1,67,19.1
+"68",14.4,68,14.4
+"69",21.4,69,21.4
+"70",15.1,70,15.1
+"71",19.6,71,19.6
+"72",21.7,72,21.7
+"73",11.3,73,11.3
+"74",15,74,15
+"75",14.3,75,14.3
+"76",16.8,76,16.8
+"77",14,77,14
+"78",6.8,78,6.8
+"79",8.2,79,8.2
+"80",19.9,80,19.9
+"81",20.4,81,20.4
+"82",14.6,82,14.6
+"83",16.4,83,16.4
+"84",18.7,84,18.7
+"85",16.8,85,16.8
+"86",15.8,86,15.8
+"87",20.4,87,20.4
+"88",15.8,88,15.8
+"89",22.4,89,22.4
+"90",16.2,90,16.2
+"91",20.3,91,20.3
+"92",23.4,92,23.4
+"93",12.1,93,12.1
+"94",15.5,94,15.5
+"95",15.4,95,15.4
+"96",18.4,96,18.4
+"97",15.7,97,15.7
+"98",10.2,98,10.2
+"99",8.9,99,8.9
+"100",21,100,21
diff --git a/module2/exo4/exercice_fr.Rmd b/module2/exo4/exercice_fr.Rmd
index 7eece5e296bb586e88166aa8a263ca75b44c2b9e..b9e9dcab94554f2b0f6b5542d945f9c2842b24b9 100644
--- a/module2/exo4/exercice_fr.Rmd
+++ b/module2/exo4/exercice_fr.Rmd
@@ -1,5 +1,5 @@
 ---
-title: "Votre titre"
+title: "Module 2 - Exercice 4"
 author: "Votre nom"
 date: "La date du jour"
 output: html_document
@@ -7,7 +7,7 @@ output: html_document
 
 
 ```{r setup, include=FALSE}
-knitr::opts_chunk$set(echo = TRUE)
+knitr::opts_chunk$set(echo = FALSE)
 ```
 
 ## Quelques explications
@@ -31,3 +31,18 @@ Vous remarquerez le paramètre `echo = FALSE` qui indique que le code ne doit pa
 Comme les résultats ne sont pas stockés dans les fichiers Rmd, pour faciliter la relecture de vos analyses par d'autres personnes, vous aurez donc intérêt à générer un HTML ou un PDF et à le commiter.
 
 Maintenant, à vous de jouer! Vous pouvez effacer toutes ces informations et les remplacer par votre document computationnel.
+
+
+## Devoir 
+
+```{r data_base, echo=TRUE}
+library(tidyverse)
+df <- c(14.0, 7.6, 11.2, 12.8, 12.5, 9.9, 14.9, 9.4, 16.9, 10.2, 14.9, 18.1, 7.3, 9.8, 10.9,12.2, 9.9, 2.9, 2.8, 15.4, 15.7, 9.7, 13.1, 13.2, 12.3, 11.7, 16.0, 12.4, 17.9, 12.2, 16.2, 18.7, 8.9, 11.9, 12.1, 14.6, 12.1, 4.7, 3.9, 16.9, 16.8, 11.3, 14.4, 15.7, 14.0, 13.6, 18.0, 13.6, 19.9, 13.7, 17.0, 20.5, 9.9, 12.5, 13.2, 16.1, 13.5, 6.3, 6.4, 17.6, 19.1, 12.8, 15.5, 16.3, 15.2, 14.6, 19.1, 14.4, 21.4, 15.1, 19.6, 21.7, 11.3, 15.0, 14.3, 16.8, 14.0, 6.8, 8.2, 19.9, 20.4, 14.6, 16.4, 18.7, 16.8, 15.8, 20.4, 15.8, 22.4, 16.2, 20.3, 23.4, 12.1, 15.5, 15.4, 18.4, 15.7, 10.2, 8.9, 21.0)
+df <- as.data.frame(df)
+df <- df %>% mutate(id = 1:100, val = df)
+```
+
+```{r echo=TRUE}
+write.csv(df, here::here("module2/exo4", "df.csv"))
+```
+