\begin{Schunk}
\begin{Sinput}
     dat$edlog <- log(1 + dat$ed)
     dat$edsqrt <- sqrt(dat$ed)
     dat$edexp <- exp(dat$ed)
     head(dat)
\end{Sinput}
\begin{Soutput}
  grp   inc mar sex    noise  moreNoise newed ed    edlog   edsqrt       edexp
1   1 44444   Y Mal       NA  0.2987237    11 11 2.484907 3.316625   59874.142
2   2 34343   Y Fem       NA  0.7796219    10 10 2.397895 3.162278   22026.466
3   1 11112   N Mal 418.4230  1.4557851     9  9 2.302585 3.000000    8103.084
4   3 23232   N Fem 337.8817 -0.6443284    15 15 2.772589 3.872983 3269017.372
5   1 23111   Y Fem       NA -1.5531374     7  7 2.079442 2.645751    1096.633
6   1 78787   N Mal  18.5983 -1.5977095    12 12 2.564949 3.464102  162754.791
\end{Soutput}
\end{Schunk}
