n <- 947
x <- 166
alpha <- 0.1
# Calcular la proporcion muestral
p <- x / n
p
## [1] 0.1752904
## coeficiente de confiabilidad
c<-qnorm(1-alpha/2)
# Calcular el error estándar de la proporcion
SE <- sqrt(p*(1-p)/n)
SE
## [1] 0.01235534
# Calcular el intervalo de confianza del 90%
l_inf <- p - c*SE # limite inferior
l_sup <- p + c*SE # limite superior
l_inf;l_sup
## [1] 0.1549677
## [1] 0.1956131
Con una confianza del \(90\%\) la proporción de individuos con antecedentes de abuso sexual y maltrato físico para la proporci6n de la población está entre ….. 15.49% y 19.56%
# Definir los datos
n <- 86# tamaño de la población
alpha<-0.01
# Calcular la proporción muestral
p <- 0.12
## coeficiente de confiabilidad
c<-qnorm(1-alpha/2)
# Calcular el error estándar de la proporción
SE <- sqrt(p*(1-p)/n)
# Calcular el intervalo de confianza del 90%
l_inf <- p - c*SE # limite inferior
l_sup <- p + c*SE # limite superior
l_inf;l_sup
## [1] 0.02973907
## [1] 0.2102609
Con una confianza del \(99\%\) la proporción de individuos con antecedentes de estres que no tenfan faetores de riesgo médico u obstétrico para la proporci6n de la población está entre …..2,97% y 21,03%
1.En un estudio de los tiempos de circulación sanguínea en el miocardio, se obtuvieron los tiempos de circulación aparente en una muestra de 30. pacientes con enfermedad arterial coronaria. Se encontró que la variancia de la muestra es de 1.03. Construya interval os de confianza de \(99\%\) para \(s^{2}\). ”
# Definir los datos
n <- 30 # tamaño de la muestra
grados_libertad <- n - 1 # grados de libertad para la dis chi-cuadrado
alpha<-0.01
# Calcular la varianza muestral
s2 <- 1.03
# Calcular el intervalo de confianza del 95%
# En este caso, se utiliza la distribucion chi-cuadrado
# con n-1 grados de libertad.
# El intervalo de confianza es [((n-1)*s2)/valor_critico, ((n-1)*s2)/qchisq(alpha/2, df=grados_libertad)]
l_inf<-(grados_libertad * s2)/ qchisq(1-alpha/2, df=grados_libertad)
l_sup<-(grados_libertad * s2)/ qchisq(alpha/2, df=grados_libertad)
l_inf;l_sup
## [1] 0.5707394
## [1] 2.276477
Con una confianza del \(99\%\) la varianza de individuos con::::0,57% y 2,27%
# Definir los datos
datos <- c(15.6, 14.8, 14.4, 16.6, 13.8, 14.0, 17.3,
17.4, 18.6, 16.2,14.7,15.7, 16.4, 13.9, 14.8, 17.5)
n <- 16 # tamaño de la muestra
grados_libertad <- n - 1 # grados de libertad para la dis chi-cuadrado
alpha<-0.05
# Calcular la varianza muestral
s2 <- var(datos)
# Calcular el intervalo de confianza del 95%
# En este caso, se utiliza la distribucion chi-cuadrado
# con n-1 grados de libertad.
# El intervalo de confianza es [((n-1)*s2)/valor_critico, ((n-1)*s2)/qchisq(alpha/2, df=grados_libertad)]
l_inf<-(grados_libertad * s2)/ qchisq(1-alpha/2, df=grados_libertad)
l_sup<-(grados_libertad * s2)/ qchisq(alpha/2, df=grados_libertad)
l_inf;l_sup
## [1] 1.189388
## [1] 5.220961
Con una confianza del \(95\%\) la varianza de individuos con::::1,18% y 5,22%
n=696
p_obs=0.63
p_obs
## [1] 0.63
p=0.6
SE <- sqrt(p*(1-p)/n)
# C?lculo del estad?stico de prueba
z <- (p_obs - p) / sqrt(p*(1-p)/n)
z
## [1] 1.615549
# Regi?n de rechazo
Z_critico <- qnorm(alpha)
Z_critico
## [1] -1.644854
H0= “menos del 60% de los individuos se retiran par sus hijos” H1 “mas del 60% de los individuos se retiran para cuidar a sus hijos”