H0:µ <= 25
H1:µ > 25
N <- 40
Media <- 26.4
varianza <- 36
α <- 0.01
sd <- sqrt(varianza)
qt(0.99, df = 39)
## [1] 2.425841
SE <- sd/sqrt(40)
sd/sqrt(40)
## [1] 0.9486833
t.stadistics <- (Media - 25)/SE
(Media - 25)/SE
## [1] 1.47573
p_value <- 1 - pt(t.stadistics, df = 39)
p_value*100
## [1] 7.402262
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