coder... en "R" ??!

# Création d'un vecteur contenant des données
donnees <- c(10, 20, 30, 40, 50)

# Calcul de la moyenne
moyenne <- mean(donnees)
cat("La moyenne des données est :", moyenne, "\n")

# Calcul de l'écart type
ecart_type <- sd(donnees)
cat("L'écart type des données est :", ecart_type)

# Création d'un vecteur contenant les notes des étudiants
notes <- c(14, 15, 18, 12, 20, 16, 13, 17, 19, 11)

# Calcul de la moyenne des notes
moyenne_notes <- mean(notes)
cat("La moyenne des notes est :", moyenne_notes, "\n")

# Calcul du nombre total d'étudiants
nombre_etudiants <- length(notes)
cat("Le nombre total d'étudiants est :", nombre_etudiants, "\n")

# Détermination de la note minimale et maximale
note_minimale <- min(notes)
note_maximale <- max(notes)
cat("La note minimale est :", note_minimale, "\n")
cat("La note maximale est :", note_maximale, "\n")

# Calcul du taux de réussite (nombre d'étudiants avec une note supérieure ou égale à 10)
nombre_reussites <- sum(notes >= 10)
taux_reussite <- nombre_reussites / nombre_etudiants * 100
cat("Le taux de réussite est de :", taux_reussite, "%\n")

# Visualisation de l'histogramme des notes
hist(notes, main="Histogramme des notes", xlab="Notes", ylab="Fréquence")