\begin{Schunk}
\begin{Sinput}
  set.seed(1234)
  x1 <- rnorm(3)
  x2 <- rgamma(3, 1, 1)
  x3 <- rnorm(3)
  Y <- cbind(x1, x2, x3)
\end{Sinput}
\end{Schunk}
