Se pretende estimar el número promedio de latidos del corazón por minuto para cierta poblacion. se encontró que el número promedio de latidos por minuto para 49 personas era de 90. considere que de esos 49 pacientes constituyen una muestra aleatoria y que la población sigue una distribución normal, con una desviación 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.65021l_sup## [1] 92.34979El numero de promedio de latidos para esta poblacion con una confianza de 0.9 es de (87.65021-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.20005l_sup## [1] 92.79995El numero de promedio de latidos para esta poblacion con una confianza de 0.95 es de (87.200005-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.32024l_sup## [1] 93.67976El numero de promedio de latidos para esta poblacion con una confianza de 0.99 es de (86.32024-93.67976)
Una muestra de 100 hombres adultos aparentemente sanos, de 25 años de edad, muestrauna presión sistólica sanguínea de 125. considere que la desviación estándar de de la población es de 15.
alpha<- 0.1
n = 100
varianza <- 225
med <- 125
cuant<-qnorm(1-alpha/2)
l_inf<-med-cuant*sqrt(varianza)/sqrt(n)
l_sup<-med+cuant*sqrt(varianza)/sqrt(n)
l_inf## [1] 122.5327l_sup## [1] 127.4673La presión sistólica sanguidea con una confianza de 0.9 es de (122.5327-127.4673)
alpha<- 0.05
n = 100
varianza <- 225
med <- 125
cuant<-qnorm(1-alpha/2)
l_inf<-med-cuant*sqrt(varianza)/sqrt(n)
l_sup<-med+cuant*sqrt(varianza)/sqrt(n)
l_inf## [1] 122.0601l_sup## [1] 127.9399La presión sistólica sanguidea con una confianza de 0.95 es de (122.0601-127.9399)
alpha<- 0.01
n = 100
varianza <- 225
med <- 125
cuant<-qnorm(1-alpha/2)
l_inf<-med-cuant*sqrt(varianza)/sqrt(n)
l_sup<-med+cuant*sqrt(varianza)/sqrt(n)
l_inf## [1] 121.1363l_sup## [1] 128.8637La presión sistólica sanguidea con una confianza de 0.99 es de (121.1363-128.8637)
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 los 10 individuos conforman una muestra aleatoria.
alpha<- 0.01
n = 10
varianza <- 4.1
med <- 119
cuant<-qnorm(1-alpha/2)
l_inf<-med-cuant*sqrt(varianza)/sqrt(n)
l_sup<-med+cuant*sqrt(varianza)/sqrt(n)
l_inf## [1] 117.3507l_sup## [1] 120.6493