From 9002b5e171ccde7067e131eb3723801e659ea673 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?F=C3=A9lix=20MARQUET?= Date: Fri, 7 Mar 2025 10:47:13 +0100 Subject: [PATCH] feat: rename mean to weighted_mean and update calculations in statistical analysis --- TP_estimateurs/Exercice2.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/TP_estimateurs/Exercice2.R b/TP_estimateurs/Exercice2.R index af7b244..3a1e0d5 100644 --- a/TP_estimateurs/Exercice2.R +++ b/TP_estimateurs/Exercice2.R @@ -35,19 +35,19 @@ sorties <- as.numeric(colnames(donnees)) resultats <- data.frame( classe_age = rownames(donnees), effectif_total = rowSums(donnees), - moyenne = NA, + moyenne_ponderee = NA, variance = NA ) for (i in 1:nrow(donnees)) { moy <- moyenne_ponderee(sorties, donnees[i,]) var <- variance_non_biaisee(sorties, donnees[i,], moy) - resultats$moyenne[i] <- moy + resultats$moyenne_ponderee[i] <- moy resultats$variance[i] <- var } # Affichage des résultats arrondis -resultats$moyenne <- round(resultats$moyenne, 2) +resultats$moyenne_ponderee <- round(resultats$moyenne_ponderee, 2) resultats$variance <- round(resultats$variance, 2) print(resultats)