##EJERCICIO 3
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.