# R-program for Supplementary Exercise 5.7 of IPS7e

# (b)
pnorm((2-2.2)/(1.4/sqrt(52)))
pnorm(2, 2.2, 1.4/sqrt(52))

# (c)
pnorm((100/52-2.2)/(1.4/sqrt(52)))
pnorm(100/52, 2.2, 1.4/sqrt(52))