Medidas de Dispersión

Este programa calcula las medidas de dispersión de los pesos de tomates y genera un histograma y un boxplot para su visualización.

# Programa II: Medidas de dispersión
pesos <- c(157.4507123, 147.92603548, 159.71532807, 172.84544785, 146.48769938,
           146.48794565, 173.68819223, 161.51152094, 142.95788421, 158.13840065,
           143.04873461, 143.0140537, 153.62943407, 121.30079633, 124.12623251,
           141.56568706, 134.80753319, 154.71370999, 136.37963887, 128.81544448)

# Crear tabla de frecuencias
intervalos <- seq(min(pesos), max(pesos), length.out = 6)
tabla_frecuencias <- table(cut(pesos, breaks = intervalos, include.lowest = TRUE))

# Mostrar tabla de frecuencias
cat("Tabla de frecuencias:\n")
## Tabla de frecuencias:
print(tabla_frecuencias)
## 
## [121,132] (132,142] (142,153] (153,163] (163,174] 
##         3         3         6         6         2
# Histograma de pesos
hist(pesos,
     main = "Histograma de Pesos de Tomates",
     xlab = "Peso (gramos)",
     col = "lightgreen",
     border = "black")

# Boxplot como gráfico adicional para visualizar la dispersión
boxplot(pesos, 
        main = "Diagrama de Caja de Pesos", 
        ylab = "Peso (gramos)",
        col = "lightcoral")

# Medidas adicionales de dispersión
cat("\nDesviación estándar:", sd(pesos), "\n")
## 
## Desviación estándar: 14.40043
cat("Rango:", max(pesos) - min(pesos), "\n")
## Rango: 52.3874
cat("Varianza:", var(pesos), "\n")
## Varianza: 207.3723