From d017bbad41fdcdbc7b839718179b9e89dfa1ac3c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?F=C3=A9lix=20MARQUET?= Date: Fri, 14 Mar 2025 09:43:57 +0100 Subject: [PATCH] fix: remove unnecessary probability argument from histogram functions and improve density scaling --- TP_estimateurs/Exercice1.R | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/TP_estimateurs/Exercice1.R b/TP_estimateurs/Exercice1.R index 0269d88..5429d8d 100644 --- a/TP_estimateurs/Exercice1.R +++ b/TP_estimateurs/Exercice1.R @@ -16,7 +16,6 @@ k <- sqrt(n) # Création de l'histogramme avec courbe de densité histoooo <- hist(poids, - probability = TRUE, main = "Histogramme des poids des cocons", xlab = "Poids (g)", ylab = "Densité", @@ -59,7 +58,6 @@ cat("Estimation de l'écart-type (σ̂):", round(ecart_type, 4), "g\n") # Création du graphique avec la courbe de densité estimée hist(poids, - probability = TRUE, main = "Distribution des poids avec courbe normale estimée", xlab = "Poids (g)", ylab = "Densité", @@ -103,7 +101,8 @@ cat("Intervalle de confiance à 95% pour la variance (σ²): [", # Affichage de l'histogramme des poids avec la courbe de densité estimée et les intervalles de confiance -scale_factor = max(histoooo$counts) / max(dnorm(seq(min(poids), max(poids), length.out=1), mean=mean(poids), sd=sd(poids))) +max_density <- max(dnorm(seq(min(poids), max(poids), length.out=100), mean=moyenne, sd=ecart_type)) +scale_factor <- 80 / max_density hist(poids, main = "Histogramme des poids des cocons",