* do-file for Supplementary Exercise 6.115 of IPS7e
version 13 /* works also with version 14 */

* using new command in Stata 13/14 (available through the power and sample size menu)
power onemean 450 460, n(500) alpha(0.01) sd(100) knownsd onesided