Processing math: 100%

Ejemplo

Datos

Hipótesis

H0:p1=p2H1:p1p2

Nivel de significancia

α=0.05

Solución manual

Estadístico calculado

z=^p1^p2p1(1p1)n1+p2(1p2)n2

z=0.380.350.38(10.38)150+0.35(10.35)100=0.48

# Estadístico calculado
numerador <- 0.38 - 0.35
denominador <- sqrt(((0.38*0.62)/150)+((0.35*0.65)/100))
z_calculado <- numerador / denominador
z_calculado
## [1] 0.4837661

Estadístico teórico

qnorm(p = 0.025, mean = 0, sd = 1, lower.tail = TRUE)
## [1] -1.959964
qnorm(p = 0.025, mean = 0, sd = 1, lower.tail = FALSE)
## [1] 1.959964

Intervalo de confianza y valor P

  • Función prop.test()
    • x: número de casos exitosos.
    • n: número total de casos.
    • p: proporción a contrastar.
    • alternative: tipo de hipótesis alternativa.
    • conf.level: nivel de confianza.
prop.test(x = c(57, 35), n = c(150, 100), alternative = "two.sided",
          conf.level = 0.95)
## 
##  2-sample test for equality of proportions with continuity
##  correction
## 
## data:  c(57, 35) out of c(150, 100)
## X-squared = 0.12111, df = 1, p-value = 0.7278
## alternative hypothesis: two.sided
## 95 percent confidence interval:
##  -0.09987744  0.15987744
## sample estimates:
## prop 1 prop 2 
##   0.38   0.35