\begin{Schunk}
\begin{Sinput}
 ttisub <- tti_dat[ , c("Urban.Area", "Year", "Annual.Congestion.Cost", "Delay.per.Commuter", "Population")]
\end{Sinput}
\end{Schunk}
