BreizhHardware/TD-R
1
0
Fork 0
mirror of https://github.com/BreizhHardware/TD-R.git synced 2026-01-18 16:47:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix: remove unnecessary probability argument from histogram functions and improve density scaling

Browse Source
This commit is contained in:
Félix MARQUET
2025-03-14 09:43:57 +01:00
parent c884300083
commit d017bbad41
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
TP_estimateurs/Exercice1.R
View File

@@ -16,7 +16,6 @@ k <- sqrt(n)
# Création de l'histogramme avec courbe de densité # Création de l'histogramme avec courbe de densité
histoooo <- hist(poids, histoooo <- hist(poids,
probability = TRUE,
main = "Histogramme des poids des cocons", main = "Histogramme des poids des cocons",
xlab = "Poids (g)", xlab = "Poids (g)",
ylab = "Densité", 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 # Création du graphique avec la courbe de densité estimée
hist(poids, hist(poids,
probability = TRUE,
main = "Distribution des poids avec courbe normale estimée", main = "Distribution des poids avec courbe normale estimée",
xlab = "Poids (g)", xlab = "Poids (g)",
ylab = "Densité", 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 # 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, hist(poids,
main = "Histogramme des poids des cocons", main = "Histogramme des poids des cocons",