From a6f950df58e04c6063ebee1605753cbe2bcce3ad Mon Sep 17 00:00:00 2001
From: 98138ca848a2c79ac2e0c0d2a296f143
 <98138ca848a2c79ac2e0c0d2a296f143@app-learninglab.inria.fr>
Date: Mon, 8 Jun 2020 14:37:10 +0000
Subject: [PATCH] Upload exercice_fr.Rmd

---
 module2/exo4/exercice_fr.Rmd | 65 ++++++++++++++++++++++++++++++++++++
 1 file changed, 65 insertions(+)
 create mode 100644 module2/exo4/exercice_fr.Rmd

diff --git a/module2/exo4/exercice_fr.Rmd b/module2/exo4/exercice_fr.Rmd
new file mode 100644
index 0000000..1b5c40b
--- /dev/null
+++ b/module2/exo4/exercice_fr.Rmd
@@ -0,0 +1,65 @@
+---
+title: "Exercice d'analyse de données"
+author: "Nicolas Roelandt"
+date: "2020-06-08"
+output: html_document
+---
+
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(echo = TRUE, warning = FALSE)
+```
+
+```{r load-libraries, echo=FALSE}
+library(tidyverse)
+```
+
+# Données et résumé
+
+### Taille du jeu de donnée
+
+Le jeu de donnée contient `r nrow(data)` lignes et `r ncol(data)` colonnes.
+
+```{r load-data, echo=FALSE}
+data <- read_csv(file = "data.csv")
+```
+
+## Contrôle des données
+
+```{r data-head}
+head(data)
+```
+
+
+```{r data-tail}
+tail(data)
+```
+
+
+
+### Statistiques
+
+Le jeu de données comprend `r nrow(data)` observations. 
+La moyenne des observations est de `r mean(data$valeur)`
+La médiane est de `r median(data$valeur)`, les données allant de `r min(data$valeur)` à `r max(data$valeur)`.
+Soit une amplitude de `r max(data$valeur) -  min(data$valeur)`.
+
+# Graphiques
+
+### Courbes
+
+Visualisation des données sous forme d'une courbe.
+
+```{r}
+plot(data, type = 'l', col = 'blue')
+```
+
+
+### Histogramme
+
+Visualisation sous forme du nombre d'incidence des valeurs.
+
+```{r}
+hist(data$valeur, col = 'blue', main = "Répartition des observations", xlab = "Valeur", ylab = "Quantité")
+```
+
-- 
2.18.1