Medidas de Tendencia Central

Este es el primer programa, donde se calculan la media, mediana y moda de un conjunto de calificaciones.

# Programa I: Medidas de tendencia central
calificaciones <- c(85, 90, 75, 88, 92, 70, 95, 78, 84, 91,
                    87, 89, 76, 80, 83, 72, 94, 96, 79, 85,
                    82, 77, 93, 81, 86, 90, 88, 84, 73, 89)

# Media
media <- mean(calificaciones)

# Mediana
mediana <- median(calificaciones)

# Moda (función personalizada)
moda <- function(x) {
  uniq <- unique(x)
  uniq[which.max(tabulate(match(x, uniq)))]
}
moda_valor <- moda(calificaciones)

# Resultados
cat("Media:", media, "\n")
## Media: 84.4
cat("Mediana:", mediana, "\n")
## Mediana: 85
cat("Moda:", moda_valor, "\n")
## Moda: 85
# Gráfico 1: Histograma
hist(calificaciones,
     main = "Distribución de calificaciones",
     col = "lightblue",
     xlab = "Calificaciones")

# Gráfico 2: Diagrama de Caja
boxplot(calificaciones,
        main = "Diagrama de Caja de Calificaciones",
        ylab = "Calificaciones",
        col = "lightgreen")

# Gráfico 3: Gráfico de Barras de Frecuencia
barplot(table(calificaciones),
        main = "Frecuencia de Calificaciones",
        xlab = "Calificaciones",
        ylab = "Frecuencia",
        col = "lightcoral")