\begin{Schunk}
\begin{Sinput}
  colnames(dat)[2] <- origname
  dat$ed <- dat$newed
  colnames(dat)
\end{Sinput}
\begin{Soutput}
[1] "grp"       "inc"       "mar"       "sex"       "noise"     "moreNoise" "newed"     "ed"       
\end{Soutput}
\end{Schunk}
