Muestras_10 <- read.csv("C:\\Users\\Usuario\\Documents\\Liz Anaya\\Muestras_10.csv")
datos <- Muestras_10$Muestra_1[!is.na(Muestras_10$Muestra_1)]
# Calcula estadísticas necesarias
n <- length(datos)
varianza_muestral <- var(datos)
# Nivel de confianza
alfa <- 0.05
# Calcula los grados de libertad
grados_libertad <- n - 1
# Calcula los límites del intervalo de confianza para la varianza
limite_inferior <- (grados_libertad * varianza_muestral) / qchisq(1 - alfa/2, df = grados_libertad)
limite_superior <- (grados_libertad * varianza_muestral) / qchisq(alfa/2, df = grados_libertad)
# Muestra el intervalo de confianza
# Muestra el intervalo de confianza
resultado <- paste("El intervalo de confianza al 95% para la varianza es: (", limite_inferior, ",", limite_superior, ")")
resultado
## [1] "El intervalo de confianza al 95% para la varianza es: ( 2033.09167027732 , 2684.32006209142 )"