From 78f591743d27d0a68a34c1b1544a69021038f640 Mon Sep 17 00:00:00 2001
From: 1059d1e2000ea662ceecd251e841f94b
 <1059d1e2000ea662ceecd251e841f94b@app-learninglab.inria.fr>
Date: Fri, 10 May 2024 16:44:45 +0000
Subject: [PATCH] =?UTF-8?q?calcul=20=C3=A0=20partir=20de=20donn=C3=A9es=5F?=
 =?UTF-8?q?exercice2=5Ffr.Rmd?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 module2/exo2/exercice_fr.Rmd | 51 ++++++++++++++++++++++++++++++++++--
 1 file changed, 49 insertions(+), 2 deletions(-)

diff --git a/module2/exo2/exercice_fr.Rmd b/module2/exo2/exercice_fr.Rmd
index 7eece5e..d242dbe 100644
--- a/module2/exo2/exercice_fr.Rmd
+++ b/module2/exo2/exercice_fr.Rmd
@@ -1,10 +1,57 @@
 ---
-title: "Votre titre"
-author: "Votre nom"
+title: "Exercice2_Rstudio_module2"
+author: "Nathalie Brouard"
 date: "La date du jour"
 output: html_document
 ---
 
+``{r}
+# Crée un vecteur avec les données
+donnees <- 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)
+```
+# Créer un graphique de densité
+plot(density(donnees), main = "Distribution des données", xlab = "Valeurs", ylab = "Densité")
+```
+javascript.void(000012_plot exercice2)
+
+
+```{r}
+# Calcul de la moyenne
+moyenne <- mean(donnees)
+print(paste("Moyenne :", moyenne))
+```
+```{r}
+# Calcul de l'écart-type
+ecart_type <- sd(donnees)
+print(paste("Écart-type :", ecart_type))
+```
+```{r}
+# Calcul du min
+minimum <- min(donnees)
+print(paste("Minimum :", minimum))
+```
+
+
+```{r}
+# Calcul de la médiane
+mediane <- median(donnees)
+print(paste("Médiane :", mediane))
+```
+```{r}
+# Calcul du max
+maximum <- max(donnees)
+print(paste("Maximum :", maximum))
+```
+Show in New Window
+[1] "Moyenne : 14.113"
+Show in New Window
+[1] "Écart-type : 4.33409445530145"
+Show in New Window
+[1] "Minimum : 2.8"
+Show in New Window
+[1] "Médiane : 14.5"
+Show in New Window
+[1] "Maximum : 23.4"
 
 ```{r setup, include=FALSE}
 knitr::opts_chunk$set(echo = TRUE)
-- 
2.18.1