\begin{Schunk}
\begin{Sinput}
 tti_dat_wide[1:10 , grep("Population", colnames(tti_dat_wide), value = TRUE)[1:5]]
\end{Sinput}
\begin{Soutput}
   Population.2011 Population.2010 Population.2009 Population.2008 Population.2007
1              619             620             620             620             620
2              616             615             612             610             595
3              630             625             613             605             595
4              635             633             628             625             625
5              307             304             297             290             290
6             4360            4304            4200            4170            4130
7             1345            1305            1250            1210            1160
8              544             538             527             520             510
9             2523            2511            2500            2475            2450
10             610             607             600             590             585
\end{Soutput}
\end{Schunk}
