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