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

* using new command in Stata 13/14
power twomeans 3350 3000, sd(650) n(150)
power twomeans 3350 3000, sd(650) n(150) onesided