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"
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
View file @ 09d17518
---
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 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"
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"))
```