prop <- pnorm(q = 39, mean = 35, sd = 2) - pnorm(q = 33, mean = 35, sd = 2) # 82%
prop * 237 # 194
## [1] 194.0069
pnorm(1) - pnorm(-1) # 68%
## [1] 0.6826895
pnorm(2) - pnorm(-2) # 95%
## [1] 0.9544997
pnorm(3) - pnorm(-3) # 99.7%
## [1] 0.9973002
With this exercise, you have just deduced the so-called 68–95–99.7 rule, stating that 68% of the values in a normal distribution lie within \(\pm\) one standard deviation, 95% of the values lie within \(\pm\) two standard deviations and 99.7% of the values lie within \(\pm\) three standard deviations.
pnorm(q = 76, mean = 65, sd = 11, lower.tail = F) # ~ 16%
## [1] 0.1586553
pnorm(q = 76, mean = 65, sd = 11) - pnorm(q = 43, mean = 65, sd = 11) # 82%
## [1] 0.8185946
qnorm(p = 0.16, mean = 65, sd = 11, lower.tail = F) # 76 marks
## [1] 75.93904
qnorm(p = 0.84, mean = 65, sd = 11) # same but ramped up from the lower tail
## [1] 75.93904
pnorm(q = 32, mean = 65, sd = 11) * 2964
## [1] 4.001098