From aa2a2022d1adee78b4dea3591be086dfa728c0a5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?F=C3=A9lix=20MARQUET?= <felix.marquet@isen-ouest.yncrea.fr>
Date: Fri, 14 Mar 2025 11:04:43 +0100
Subject: [PATCH] feat: add hypothesis testing and visualization for thickness
 data in R script

---
 TP5/Exercice1.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/TP5/Exercice1.R b/TP5/Exercice1.R
index 7a01ef3..862a785 100644
--- a/TP5/Exercice1.R
+++ b/TP5/Exercice1.R
@@ -47,8 +47,10 @@ if (abs(z_stat) > z_critique) {
 }
 
 # Représentation graphique
+k <- sqrt(n)
+
 hist(epaisseurs,
-     breaks = "FD",
+     breaks = k,
      col = "lightblue",
      main = "Distribution des épaisseurs des composants",
      xlab = "Épaisseur (mm)",