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

* using either the command or the Power and sample size menu
power twomeans 3350 3000, sd(650) n(150)
power twomeans 3350 3000, sd(650) n(150) onesided