# R-program for Supplementary Exercise 1.127 of IPS7e

# (a)
1-pnorm((240-185)/39)
1-pnorm(240,185,39)

# (b)
pnorm((240-185)/39)-pnorm((200-185)/39)
pnorm(240,185,39)-pnorm(200,185,39)