Skip to content

M
mooc-rr
Source
Select Git revision
...
Target
Select Git revision
 
Commits (1)
Show whitespace changes
Inline Side-by-side
Showing with 164 additions and 9 deletions
module2/exo2/exercice_fr.Rmd
View file @ 09d17518
--- ---
title: "Votre titre" title: "Module 2 - Excercice 2"
author: "Votre nom" author: "Doévi BIAOU"
date: "La date du jour" date: "`r Sys.Date()`"
output: html_document output: html_document
--- ---
```{r setup, include=FALSE} ```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE) knitr::opts_chunk$set(echo = FALSE)
``` ```
## Quelques explications ## Quelques explications
...@@ -31,3 +31,16 @@ Vous remarquerez le paramètre `echo = FALSE` qui indique que le code ne doit pa ...@@ -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. 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. 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
View file @ 09d17518
--- ---
title: "Votre titre" title: "Module 2 - Exercice 3"
author: "Votre nom" author: "Doévi BIAOU "
date: "La date du jour" date: "`r Sys.Date()`"
output: html_document output: html_document
--- ---
...@@ -31,3 +31,29 @@ Vous remarquerez le paramètre `echo = FALSE` qui indique que le code ne doit pa ...@@ -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. 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. 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 0 → 100644
View file @ 09d17518
"","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
View file @ 09d17518
--- ---
title: "Votre titre" title: "Module 2 - Exercice 4"
author: "Votre nom" author: "Votre nom"
date: "La date du jour" date: "La date du jour"
output: html_document output: html_document
...@@ -7,7 +7,7 @@ output: html_document ...@@ -7,7 +7,7 @@ output: html_document
```{r setup, include=FALSE} ```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE) knitr::opts_chunk$set(echo = FALSE)
``` ```
## Quelques explications ## Quelques explications
...@@ -31,3 +31,18 @@ Vous remarquerez le paramètre `echo = FALSE` qui indique que le code ne doit pa ...@@ -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. 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. 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"))
```