\begin{Schunk}
\begin{Sinput}
 m <- 7
 s <- 3
 N <- 2000
 y <- rnorm(N, m = m, s = s)
 hist(y, breaks = 50, prob = TRUE)
 range(y)
\end{Sinput}
\begin{Soutput}
[1] -3.004026 16.992200
\end{Soutput}
\begin{Sinput}
 str(y)
\end{Sinput}
\begin{Soutput}
 num [1:2000] 8.76 9.13 6.67 5.64 8.82 ...
\end{Soutput}
\end{Schunk}
