\begin{Schunk}
\begin{Sinput}
 tti_dat_wide2[1:10, c("Urban.Area", "Population", "Annual.Congestion.Cost.2011")]
\end{Sinput}
\begin{Soutput}
                  Urban.Area Population Annual.Congestion.Cost.2011
1                   Akron OH        619                         209
2                  Albany NY        616                         293
3             Albuquerque NM        630                         288
4  Allentown-Bethlehem PA-NJ        635                         292
5               Anchorage AK        307                          78
6                 Atlanta GA       4360                        3135
7                  Austin TX       1345                         810
8             Bakersfield CA        544                         117
9               Baltimore MD       2523                        1557
10            Baton Rouge LA        610                         424
\end{Soutput}
\end{Schunk}
