From 09d1751869d07260808c98c95f32dd4d87361260 Mon Sep 17 00:00:00 2001 From: Doevi Mawuena Biaou Date: Mon, 22 Nov 2021 20:23:24 +0100 Subject: [PATCH] Fin des exercices du module 2, ouf. --- module2/exo2/exercice_fr.Rmd | 21 ++++++-- module2/exo3/exercice_fr.Rmd | 32 +++++++++-- module2/exo4/df.csv | 101 +++++++++++++++++++++++++++++++++++ module2/exo4/exercice_fr.Rmd | 19 ++++++- 4 files changed, 164 insertions(+), 9 deletions(-) create mode 100644 module2/exo4/df.csv diff --git a/module2/exo2/exercice_fr.Rmd b/module2/exo2/exercice_fr.Rmd index 7eece5e..e7246b5 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 7eece5e..44b002a 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 0000000..0004055 --- /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 7eece5e..b9e9dca 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")) +``` + -- 2.18.1