powered by
## S3 method for class 'power.htest': tidy(x, ...)
n
delta
sd
sig.level
power
power.htest
ptt <- power.t.test(n = 2:30, delta = 1) tidy(ptt) library(ggplot2) ggplot(tidy(ptt), aes(n, power)) + geom_line()
Run the code above in your browser using DataLab