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 25\% \quad \mbox{versus} \quad H_1: p > 25\% \]

# H0: La proporción de estudiantes que van en bicicleta a la escuela es igual o mayor a 25%.
# H1: La proporción de estudiantes que van en bicicleta a la escuela es menor a 25%.


n=90
x=28
alpha=0.05
p=0.25
pbarra=x/n
 
c=qnorm(1-alpha)
c
## [1] 1.644854
z=(pbarra-p)/sqrt((p*(1-p))/n);z
## [1] 1.338877
c;z
## [1] 1.644854
## [1] 1.338877

“En la revista Hypertension de la American Heart Association, investigadores reportan que los individuos que practican la meditación trascendental (MT) bajan su presión sanguínea de forma significativa. Si una muestra aleatoria de 225 hombres que practican la MT meditan 8.5 horas a la semana, con una desviación estándar de 2.25 horas, ¿esto sugiere que, en promedio, los hombres que utilizan la MT meditan más de 8 horas por semana? Cite un valor P en su conclusión.”

# H0 = Promedio de horas que los hombres meditan 8 horas o menos
# H0 = Promedio de horas que los hombres meditan en más de 8 horas por semana

n = 225
x = 8.5
ds = 2.25
alpha = 0.05
u = 8

z = (x - u) / (ds / sqrt(n))
p = 1 - pnorm(z)

z ; p
## [1] 3.333333
## [1] 0.0004290603