EJERCICIO PRUEBA DE HIPOTESIS

  1. En cierta universidad se estima que a lo sumo 25% de los estudiantes van en bicicleta a la escuela. ¿Parece que ésta es una estimación válida si, en una muestra aleatoria de 90 estudiantes universitarios, se encuentra que 28 van en bicicleta a la escuela? Utilice un nivel de significancia de 0.05.

\[ H_0: p\leq 0.25 \quad \mbox{versus} \quad H_1: p > 0.25 \]

n = 90
pbarra = 28/90
p = 0.25
alpha = 0.05

es = sqrt(p*(1-p)/n)
z = (pbarra-p)/es
c = qnorm(1-alpha)
c;z
## [1] 1.644854
## [1] 1.338877
resultado_prueba <- prop.test(x = pbarra*n, n = n, p = p, alternative = "greater")
resultado_prueba
## 
##  1-sample proportions test with continuity correction
## 
## data:  pbarra * n out of n, null probability p
## X-squared = 1.4815, df = 1, p-value = 0.1118
## alternative hypothesis: true p is greater than 0.25
## 95 percent confidence interval:
##  0.2323325 1.0000000
## sample estimates:
##         p 
## 0.3111111

Se acepta la hipotesis nula.