Medidas estadisticas
# Datos de variables cuantitativas
peso <- c(65, 70, 68, 72, 75, 80, 78, 73, 68, 71, 75, 77, 79, 76, 74)
altura <- c(1.70, 1.75, 1.68, 1.80, 1.72, 1.68, 1.76, 1.73, 1.78, 1.75, 1.71, 1.79, 1.74, 1.77, 1.81)
Medidas estadísticas de tendencia central
Moda
library (modeest)
## Warning: package 'modeest' was built under R version 4.3.2
table_peso <- table(peso)
table_altura <- table(altura)
moda_peso <- as.numeric(names(table_peso)[table_peso == max(table_peso)])
moda_altura <- mfv(altura)
Medidas de variabilidad o dispersión
Rango
range_peso <- max(peso) - min(peso)
range_altura <- max(altura) - min(altura)
Varianza
var_peso <- var(peso)
var_altura <- var(altura)
Desviación estándar
sd_peso <- sd(peso)
sd_altura <- sd(altura)
Coeficiente de variación
cv_peso <- sd_peso / mean_peso * 100
cv_altura <- sd_altura / mean_altura * 100
Resultados
Medidas estadísticas de Peso
cat("Media:", mean_peso, "\n")
## Media: 73.4
cat("Mediana:", median_peso, "\n")
## Mediana: 74
cat("Moda:", moda_peso, "\n")
## Moda: 68 75
cat("Rango:", range_peso, "\n")
## Rango: 15
cat("Varianza:", var_peso, "\n")
## Varianza: 19.25714
cat("Desviación Estándar:", sd_peso, "\n")
## Desviación Estándar: 4.388296
cat("Coeficiente de Variación:", cv_peso, "%\n\n")
## Coeficiente de Variación: 5.978605 %
Medidas estadísticas de Altura
cat("Media:", mean_altura, "\n")
## Media: 1.744667
cat("Mediana:", median_altura, "\n")
## Mediana: 1.75
cat("Moda:", moda_altura, "\n")
## Moda: 1.68 1.75
cat("Rango:", range_altura, "\n")
## Rango: 0.13
cat("Varianza:", var_altura, "\n")
## Varianza: 0.001712381
cat("Desviación Estándar:", sd_altura, "\n")
## Desviación Estándar: 0.04138092
cat("Coeficiente de Variación:", cv_altura, "%\n")
## Coeficiente de Variación: 2.371853 %