Quiz

# Punto 1: Cálculo del intervalo de confianza para la media

# Datos
n <- 25  # Tamaño de la muestra
media <- 15  # Media muestral en horas
desviacion <- 4  # Desviación estándar
Z <- 1.96  # Valor crítico para un nivel de confianza del 95%

# Cálculo del error estándar
SE <- desviacion / sqrt(n)

# Intervalo de confianza
error_margen <- Z * SE
limite_inferior <- media - error_margen
limite_superior <- media + error_margen

# Mostrar el intervalo de confianza
cat("Punto 1: Intervalo de confianza del 95% para la media:", limite_inferior, "a", limite_superior, "\n\n")

## Punto 1: Intervalo de confianza del 95% para la media: 13.432 a 16.568

# Punto 2: Cálculo del tamaño de muestra necesario

# Parte b: Margen de error de 1 hora
margen_error_1h <- 1  # Margen de error deseado
n_1h <- (Z * desviacion / margen_error_1h)^2
cat("Punto 2 - Parte b: Tamaño de muestra necesario para un margen de error de 1 hora:", ceiling(n_1h), "\n\n")

## Punto 2 - Parte b: Tamaño de muestra necesario para un margen de error de 1 hora: 62

# Parte c: Margen de error de 0.5 horas
margen_error_05h <- 0.5  # Margen de error deseado
n_05h <- (Z * desviacion / margen_error_05h)^2
cat("Punto 2 - Parte c: Tamaño de muestra necesario para un margen de error de 0.5 horas:", ceiling(n_05h))

## Punto 2 - Parte c: Tamaño de muestra necesario para un margen de error de 0.5 horas: 246