\begin{Schunk}
\begin{Sinput}
 set.seed(1234)
 x <- rnorm(40, 7, 2)
\end{Sinput}
\end{Schunk}
