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

feat: update observed data for candy color distribution analysis in R script

Browse Source
This commit is contained in:
Félix MARQUET
2025-03-17 11:31:10 +01:00
parent 93694cfb22
commit 17d8e5f007
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
TP6/Exercice1.R
View File

@@ -1,5 +1,5 @@
# Données observées
observed <- c(B = 84, J = 79, R = 75, O = 40, V = 36, D = 47)
observed <- c(B = 84, J = 79, R = 75, O = 49, V = 36, D = 47)
total <- sum(observed)
# Proportions attendues selon le responsable de communication
@@ -64,4 +64,6 @@ colnames(barplot_data) <- colors
barplot(barplot_data, beside = TRUE, col = c("lightblue", "lightgreen"),
main = "Distribution des couleurs des bonbons Yopy",
ylab = "Nombre de bonbons", ylim = c(0, max(barplot_data) * 1.2))
legend("topright", legend = c("Observé", "Attendu"), fill = c("lightblue", "lightgreen"))
legend("topright", legend = c("Observé", "Attendu"), fill = c("lightblue", "lightgreen"))
# V