Propósito de la actividad

Esta actividad tiene como objetivo que el estudiante genere variables aleatorias y calcule intervalos de confianza, consultando las páginas 114 a 117 del texto Simulación y análisis de sistemas con Promodel.

Simulación 1: Tiempo de atención de clientes (Distribución Normal)

# Simulación Normal
set.seed(123)
n_clientes <- 20
n_replicas <- 30

promedios_normal <- replicate(n_replicas, {
  mean(rnorm(n_clientes, mean = 15, sd = 5))
})

# Media y desviación estándar
media_normal <- mean(promedios_normal)
desv_normal <- sd(promedios_normal)

# Intervalo de confianza 95%
error_normal <- qt(0.975, df = n_replicas - 1) * (desv_normal / sqrt(n_replicas))
IC_normal <- c(media_normal - error_normal, media_normal + error_normal)

# Resultados en tabla
tabla_normal <- data.frame(
  Media = media_normal,
  Desviacion = desv_normal,
  `IC 95% Inferior` = IC_normal[1],
  `IC 95% Superior` = IC_normal[2]
)
tabla_normal
##      Media Desviacion IC.95..Inferior IC.95..Superior
## 1 15.10888  0.9667275        14.74789        15.46986
# Histograma
hist(promedios_normal,
     main = "Distribución de promedios (Normal)",
     xlab = "Promedio de tiempos (minutos)",
     col = "lightblue", border = "black")