Fin des exercices du module 2, ouf.

module2/exo2/exercice_fr.Rmd

 ---
-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)
+```

module2/exo3/exercice_fr.Rmd

 ---
-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()
+```
+

module2/exo4/df.csv

+"","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

module2/exo4/exercice_fr.Rmd

 ---
-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"))
+```
+