#Se pretende estimar la concentración media de bilirrubina indirecta en el suero en niños de cuatro días de nacidos. La media para una muestra de 16 niños es de 5.98 mg/lOO cc. Considérese que la concentraci6n de bilirrubina en los niños de cuatro días de nacidos sigue una distribución aproximadamente normal con una desviación estándar de 3.5 mg/IOO cc- Elabore un intervalo de confianza de 95 por ciento para la media de la población. 


n=16
alpha=0.05
mediaMuestral=5.98
desv=3.5


critico<-qnorm(1-alpha/2)
l_inf<-mediaMuestral-critico*desv /sqrt(n)
l_sup<-mediaMuestral+critico*desv /sqrt(n)
l_inf;l_sup
## [1] 4.265032
## [1] 7.694968

“Por tanto, el intervalo de confianza para el valor medio de la población al nivel de confianza del \(0.95\) es [4.265032,7.694968]”

#4 Se desea estudiar la depuración de creatina, en una muestra de 211 pacientes se observa una media de 59.1 y una desviación estándar de 25.6. Se pretende saber si es posible concluir que la media de la población de individuos que presenta el mismo cuadro patológico es menor que 60. Con un Alpha de 0.10. Plantea y verifica las hipótesis. 
#La media es menor a 60

n <- 211
media <- 59.1
sigma <- 25.6
alpha <- 0.10
h0 <- 60 


#Calculo del estadistico de prueba
z_obs <- (media-h0)/(sigma/ sqrt(n))
z_obs #z observable
## [1] -0.510674
# Region de rechazo
z_critico <- qnorm(1-alpha, lower.tail = FALSE)
z_critico
## [1] -1.281552

Con una confianza del 90% se acepta la hipótesis nula \(H_0\): La media de creatina es igual o mayor a 60.