Fonction sd() de R - Calculer l'écart-type
Exemples du langage RLa fonction sd() de R est utilisée pour calculer l'écart-type d'un échantillon.
L'écart-type mesure la dispersion des données ; plus la valeur est grande, plus les données sont dispersées. C'est la racine carrée arithmétique de la variance.
La syntaxe de la fonction sd() est la suivante :
sd(x, na.rm = FALSE)
Description du paramètre :
xVecteur numérique en entrée.
na.rmUne valeur booléenne, par défaut FALSE, indiquant s'il faut supprimer les valeurs manquantes NA.
Exemple
# Deux jeux de données, même moyenne, écarts-types différents
group1 <- c(85, 86, 84, 85, 86, 84, 85, 85)
group2 <- c(60, 70, 85, 90, 95, 100, 75, 105)
# Calculer la moyenne et l'écart-type
print(paste("Groupe 1 - Moyenne :", mean(group1), "Écart-type :", sd(group1)))
print(paste("Groupe 2 - Moyenne :", mean(group2), "Écart-type :", sd(group2)))
group1 <- c(85, 86, 84, 85, 86, 84, 85, 85)
group2 <- c(60, 70, 85, 90, 95, 100, 75, 105)
# Calculer la moyenne et l'écart-type
print(paste("Groupe 1 - Moyenne :", mean(group1), "Écart-type :", sd(group1)))
print(paste("Groupe 2 - Moyenne :", mean(group2), "Écart-type :", sd(group2)))
L'exécution du code ci-dessus produit la sortie suivante :
[1] "第一组 - 均值: 85 标准差: 0.925820099772551" [1] "第二组 - 均值: 85 标准差: 15.1186472433265"
L'écart-type est couramment utilisé pour l'estimation de probabilité dans la distribution normale. Environ 68 % des données se situent à ±1 écart-type de la moyenne :
Exemple
# Générer des données distribuées normalement
set.seed(123)
scores <- rnorm(1000, mean = 70, sd = 10)
# Calculer la moyenne et l'écart-type
m <- mean(scores)
s <- sd(scores)
# Calculer la proportion comprise dans ±1 écart-type
within_1sd <- mean(scores >= m - s & scores <= m + s)
print(paste("Moyenne :", round(m, 2)))
print(paste("Écart-type :", round(s, 2)))
print(paste("Proportion comprise dans ±1 écart-type :", round(within_1sd * 100, 1), "%"))
set.seed(123)
scores <- rnorm(1000, mean = 70, sd = 10)
# Calculer la moyenne et l'écart-type
m <- mean(scores)
s <- sd(scores)
# Calculer la proportion comprise dans ±1 écart-type
within_1sd <- mean(scores >= m - s & scores <= m + s)
print(paste("Moyenne :", round(m, 2)))
print(paste("Écart-type :", round(s, 2)))
print(paste("Proportion comprise dans ±1 écart-type :", round(within_1sd * 100, 1), "%"))
L'exécution du code ci-dessus produit la sortie suivante :
[1] "均值: 69.97" [1] "标准差: 10.03" [1] "±1 标准差范围内的比例: 68.1 %"Autres extensions