\begin{Schunk}
\begin{Sinput}
 colnames(dat) <- paste0(oldnames, "_", 2017) 
 head(dat, 2)
\end{Sinput}
\begin{Soutput}
     x_2017 y_2017 w_2017 z_2017 y2_2017   x2_2017
1 235.69505     11      g  eenie      11 2.3569505
2  35.26574     14      f  eenie      NA 0.3526574
      xexp_2017 xlog_2017 xsqrt_2017 xlog.2_2017
1 2.296468e+102  5.462539  15.352363    5.462539
2  2.068785e+15  3.562912   5.938496    3.562912
    xlog.3_2017 xcut_2017 rn_2017 wn_2017
1 2.296468e+102      Huge       1      g1
2  2.068785e+15   Minimal       2      f2
\end{Soutput}
\end{Schunk}
