Se pretende estimar el numero promedio de latidos del corazon por minuto para cierta poblacion. Se encontro que el numero promedio de latidos por minuto para 49 personas era de 90. Considere que esos 49 pacientes constituten una muestra aleatoria y que la poblacion sigue una distribucion normal, con una desviacion estandar de 10.
alpha<- 0.1
n = 49
varianza <- 100
med <- 90
cuant<-qnorm(1-alpha/2)
l_inf<-med-cuant*sqrt(varianza)/sqrt(n)
l_sup<-med+cuant*sqrt(varianza)/sqrt(n)
l_inf
## [1] 87.65021
l_sup
## [1] 92.34979
alpha<- 0.05
n = 49
varianza <- 100
med <- 90
cuant<-qnorm(1-alpha/2)
l_inf<-med-cuant*sqrt(varianza)/sqrt(n)
l_sup<-med+cuant*sqrt(varianza)/sqrt(n)
l_inf
## [1] 87.20005
l_sup
## [1] 92.79995
alpha<- 0.01
n=49
varianza<- 100
med<- 90
cuant<-qnorm(1-alpha/2)
l_inf<-med-cuant*sqrt(varianza)/sqrt(n)
l_sup<-med+cuant*sqrt(varianza)/sqrt(n)
l_inf
## [1] 86.32024
l_sup
## [1] 93.67976
Se pretende estimar la concentracion media de la bilirrubina indirecta en el suero en niños de 4 dias de nacidos. La media para una muestra de 16 niños es de 5.98mg/100 cc. Considerese que la concentracion de bilirrubina en los niños de 4 dias de nacido sigue una distribucion aproximadamente normal con una desviacion estandar de 3.5mg/100 cc.
alpha<- 0.1
n = 16
varianza <- 12.25
med <- 5.98
cuant<-qnorm(1-alpha/2)
l_inf<-med-cuant*sqrt(varianza)/sqrt(n)
l_sup<-med+cuant*sqrt(varianza)/sqrt(n)
l_inf
## [1] 4.540753
l_sup
## [1] 7.419247
alpha<- 0.05
n = 16
varianza <- 12.25
med <- 5.98
cuant<-qnorm(1-alpha/2)
l_inf<-med-cuant*sqrt(varianza)/sqrt(n)
l_sup<-med+cuant*sqrt(varianza)/sqrt(n)
l_inf
## [1] 4.265032
l_sup
## [1] 7.694968
alpha<- 0.01
n=16
varianza<- 12.25
med<- 5.98
cuant<-qnorm(1-alpha/2)
l_inf<-med-cuant*sqrt(varianza)/sqrt(n)
l_sup<-med+cuant*sqrt(varianza)/sqrt(n)
l_inf
## [1] 3.726149
l_sup
## [1] 8.233851
En un estudio se encontrósobrela preclamsiaque la mediade la presión sistólicasanguíneaen 10 mujeres sanas y que no estánembarazadas es de 119,con una desviación estándarde 2.1.Construya un intervalode confianza de 99% para la media de la poblaciónapartir de la cual puede considerarse que los10 individuos conforman una muestra aleatoria.
alpha<- 0.01
n=10
med<- 119
ds<- 2.1
z=qt(1-alpha/2,9)
l_inf<-med-cuant*ds/sqrt(n)
l_sup<-med+cuant*ds/sqrt(n)
l_inf
## [1] 117.2894
l_sup
## [1] 120.7106