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