\begin{Schunk}
\begin{Sinput}
 dat$x2 <- 0.01 * dat$x
 dat$xexp <- exp(dat$x)
 dat$xlog <- log(dat$x)
 dat$xsqrt <- sqrt(dat$x)
\end{Sinput}
\end{Schunk}
