From 9be3c75ecac50fc98bc94993ef965e9c0d8e6348 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?HOUNGBO=20Mahugnon=20Ez=C3=A9kiel?= Date: Wed, 17 Feb 2021 11:10:48 +0100 Subject: [PATCH] =?UTF-8?q?exo4=20ex=C3=A9cut=C3=A9?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- module2/exo4/exercice_fr.html | 537 ++++++++++++++++++++++++++++++++++ 1 file changed, 537 insertions(+) create mode 100644 module2/exo4/exercice_fr.html diff --git a/module2/exo4/exercice_fr.html b/module2/exo4/exercice_fr.html new file mode 100644 index 0000000..c9e3f08 --- /dev/null +++ b/module2/exo4/exercice_fr.html @@ -0,0 +1,537 @@ + + + + + + + + + + + + + + +Recherche reproductible : principes méthodologique + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + + + + + + +
+

Mon journal de bord

+
+
+

Module2

+
+

Importation des packages

+

setwd(“C:/Users/Denis CORNET/mooc-rr/module2”) À utiliser lors du travail en local

+
library(tidyverse)
+
## -- Attaching packages --------------------------------------- tidyverse 1.3.0 --
+
## v ggplot2 3.3.2     v purrr   0.3.4
+## v tibble  3.0.4     v dplyr   1.0.2
+## v tidyr   1.1.2     v stringr 1.4.0
+## v readr   1.4.0     v forcats 0.5.0
+
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
+## x dplyr::filter() masks stats::filter()
+## x dplyr::lag()    masks stats::lag()
+
+
+

Importation de la base de donnée

+
DonneModule2<- read.csv2("C:/Users/Denis CORNET/mooc-rr/module2/exo4/DonneModule2.csv")
+DonneModule2 <- as.data.frame(DonneModule2)
+head(DonneModule2)
+
##   Notes
+## 1    14
+## 2   7.6
+## 3  11.2
+## 4  12.8
+## 5  12.5
+## 6   9.9
+
DonneModule2$Notes <- as.numeric(DonneModule2$Notes)
+head(DonneModule2)
+
##   Notes
+## 1  14.0
+## 2   7.6
+## 3  11.2
+## 4  12.8
+## 5  12.5
+## 6   9.9
+
+
+

Statistique descriptive sur la base de donnée

+
+

Moyenne, écart-type, minimum, médiane et maximum

+
DonneModule2.moyenne= mean(DonneModule2$Notes); DonneModule2.moyenne
+
## [1] 14.113
+
DonneModule2.ecarttype= sd(DonneModule2$Notes);DonneModule2.ecarttype
+
## [1] 4.334094
+
DonneModule2.min=min(DonneModule2$Notes);DonneModule2.min
+
## [1] 2.8
+
DonneModule2.médiane=median(DonneModule2$Notes); DonneModule2.médiane
+
## [1] 14.5
+
DonneModule2.max=max(DonneModule2$Notes); DonneModule2.max
+
## [1] 23.4
+
+
+

Grapiques de la statistique descriptive

+
+

Plot

+
plot(DonneModule2$Notes, type="l", ann = FALSE,col="blue", panel.first = grid())
+

+
+
+

Histogramme

+
hist(DonneModule2$Notes, ann = FALSE,col="blue" )
+

+
+
+
+
+ + + + +
+ + + + + + + + + + + + + + + -- 2.18.1