feat: add hypothesis testing and visualization for thickness data in R script

2026-01-18 16:47:34 +01:00 · 2025-03-14 11:04:43 +01:00
parent 390af617d4
commit aa2a2022d1
1 changed files with 3 additions and 1 deletions
--- 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)",