Hipótesis

H0:µ <= 25

H1:µ > 25

Datos Generales

N <- 40 
Media <- 26.4
varianza <- 36
α <- 0.01
sd <- sqrt(varianza)

Calculos

Zona de Rechazo

qt(0.99, df = 39)
## [1] 2.425841

Error Estandar

SE <- sd/sqrt(40)
sd/sqrt(40)
## [1] 0.9486833

T.Stadistics

t.stadistics <- (Media - 25)/SE
(Media - 25)/SE
## [1] 1.47573

P-Value

p_value <- 1 - pt(t.stadistics, df = 39)
p_value*100
## [1] 7.402262

Interpretación

Con un nivel de significancia del 1%, no hay suficiente evidencia estadística para afirmar que la media poblacional es mayor a 25. Por lo tanto, no se rechaza la hipótesis nula