##EJERCICIO 3

  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.
  1. \[ 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
 
prop.test(x = pbarra*n, n = n, p = p, alternative = "greater")
## 
##  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

Al p valor(0.11) y ser mayor que el alpha de (0.05) se acepta la hipotesis nula de que a lo mucho un 25% de los estudiantes vienen en bicicleta a la escuela.