\begin{Schunk}
\begin{Sinput}
 tti_dat_wide2 <- reshape(tti_dat, direction = "wide", timevar = "Year", idvar = "Urban.Area", v.names = c("Annual.Congestion.Cost", "Delay.per.Commuter"))
\end{Sinput}
\end{Schunk}
