# R-program for Supplementary Exercise 6.115 of IPS7e

library(pwr)
# add-on pwr library covers power and sample size calculations in many basic designs

d<-(460-450)/100 # d=effect size (mean difference relative to standard deviation)
pwr.norm.test( d=d, n=500, sig.level=0.01, alternative="greater")