# NOT RUN {
f_pval(.05)
f_pval(.04999999999999999)
f_pval(.0002)
f_pval(.0002, .001)
mod1 <- t.test(1:10, y = c(7:20))
f_pval(mod1$p.value)
mod2 <- t.test(1:10, y = c(7:20, 200))
f_pval(mod2$p.value)
# }
Run the code above in your browser using DataLab