\begin{Schunk}
\begin{Sinput}
  dat$noise <- rnorm(nrow(dat), m = 444, sd = 234)
  dat[["moreNoise"]] <- rnorm(nrow(dat), m = 0, sd = 1)
\end{Sinput}
\end{Schunk}
