inst/snippets/normal.R

In Lock5withR: Datasets for 'Statistics: Unlocking the Power of Data'

trellis.par.set(superpose.polygon = list(col = c('gray50', 'gray80', 'gray50')))
print(plotnorm(lower = -1, upper = 1, main = "", xlab = "standard deviations from the mean"))
print(plotnorm(lower = -2, upper = 2, main = "", xlab = "standard deviations from the mean"))
print(plotnorm(lower = -3, upper = 3, main = "", xlab = "standard deviations from the mean"))