\begin{Schunk}
\begin{Sinput}
 colnames(dat) <- toupper(oldnames)
 head(dat, 2)
\end{Sinput}
\begin{Soutput}
          X  Y W     Z Y2        X2          XEXP     XLOG
1 235.69505 11 g eenie 11 2.3569505 2.296468e+102 5.462539
2  35.26574 14 f eenie NA 0.3526574  2.068785e+15 3.562912
      XSQRT   XLOG.2        XLOG.3    XCUT RN WN
1 15.352363 5.462539 2.296468e+102    Huge  1 g1
2  5.938496 3.562912  2.068785e+15 Minimal  2 f2
\end{Soutput}
\end{Schunk}
