Código para Intervalos

Muestras_10 <- read.csv("C:\\Users\\Usuario\\Documents\\Liz Anaya\\Muestras_10.csv")
datos <- Muestras_10$Muestra_1[!is.na(Muestras_10$Muestra_1)]
# Calcular la media y la desviación estándar de los datos
media <- mean(datos)
desviacion <- sd(datos)
# Calcular el tamaño de la muestra
n <- length(datos)
# Calcular el valor crítico z para el nivel de confianza del 95%
valor_critico <- qnorm(0.975)
# Calcular el error estándar
error_estandar <- desviacion / sqrt(n)
# Calcular los límites del intervalo
limite_inferior <- media - valor_critico * error_estandar
limite_superior <- media + valor_critico * error_estandar
# Mostrar el resultado
cat("Intervalo al 95%:", "\n")

## Intervalo al 95%:

cat("Límite inferior:", limite_inferior, "\n")

## Límite inferior: 45.42018

cat("Límite superior:", limite_superior, "\n")

## Límite superior: 54.87025

media

## [1] 50.14521

desviacion

## [1] 48.21552

error_estandar

## [1] 2.410776

valor_critico

## [1] 1.959964