\begin{Schunk}
\begin{Sinput}
 mu <- 100
 sigma <- 15
 N <- 150
 x <- rnorm(N, mean = mu, sd = sigma)
 hist(x, prob = TRUE, main = "IQ Scores", xlab = "IQ", col = "grey70", breaks = 30)
\end{Sinput}
\end{Schunk}
