\begin{Schunk}
\begin{Sinput}
 dat <- data.frame(x = rnorm(100))
 dat$xsq <- dat$x^2
\end{Sinput}
\end{Schunk}
