actividad en clase 7

Suponga que un investigador, interesado en obtener una estimación del nivel promedio de alguna enzima en cierta población de seres humano, toma una muestra de 10 individuos, determina el nivel de la enzima en cada uno de ellos, y calcula la media de la muestra x_barra=22. Ademas, que la variable de interes sigue una distribucion aproximadamente normal, con una varianza de 45. Se desea estimar el valor de la media poblacional. Un intervalo de confianza de aproximadamente 95% para 11 está dado por:

n <- 10
x_barra <- 22
s_cuadrado <- 45
alpha <- 0.05
error_est <- qnorm(1-alpha/2) * sqrt(s_cuadrado/n)
l_inf <- x_barra - error_est
l_sup <- x_barra + error_est
cat("El intervalo de confianza al 95% es [", l_inf, ",", l_sup, "]")

## El intervalo de confianza al 95% es [ 17.84229 , 26.15771 ]

#con una confianza de 95% la encima de cierta poblacion se encuentra entre:{17.84229 , 26.15771}

Un fisioterapeuta desea estimar, con 99 por ciento de confianza, la media de fuerza maxima de un músculo particular en cierto grupo de individuos. Se inclina a suponer que los valores de dicha fuerza muestran una distribución aproximadamente normal con una varianza de 144. Una muestra de 15 individuos que participaron en el experimento presento una media de 84.3

alpha <- 0.01
gl <- 14
critico <- qnorm(1-alpha/2)
error_est <- critico * sqrt(144/15)
l_inf <- 84.3 - error_est
l_sup <- 84.3 + error_est
cat("El intervalo de confianza al 99% es [", l_inf, ",", l_sup, "]")

## El intervalo de confianza al 99% es [ 76.31908 , 92.28092 ]

#el intervalo de confianza al 99% la media de fuerza maxima de un musculo particular en cierto grupo de individuos se encuentra entre: [ 76.31908 , 92.28092 ]