\begin{Schunk}
\begin{Sinput}
 tti_dat_wide3 <- 
      reshape(ttisub, direction = "wide", 
              timevar = "Urban.Area",
              idvar = "Year")
 ## Leaves some illegal column names, fix with make.names
 colnames(tti_dat_wide3) <- make.names(colnames(tti_dat_wide3))
 tti_dat_wide3[1:10, 1:5]
\end{Sinput}
\begin{Soutput}
    Year Annual.Congestion.Cost.Akron.OH Delay.per.Commuter.Akron.OH Population.Akron.OH
1   2011                             209                          23                 619
102 2010                             209                          23                 620
203 2009                             223                          25                 620
304 2008                             232                          25                 620
405 2007                             225                          25                 620
506 2006                             269                          31                 615
607 2005                             242                          29                 615
708 2004                             236                          29                 610
809 2003                             208                          28                 590
910 2002                             211                          31                 580
    Annual.Congestion.Cost.Albany.NY
1                                293
102                              293
203                              308
304                              289
405                              359
506                              308
607                              253
708                              230
809                              191
910                              164
\end{Soutput}
\begin{Sinput}
 colnames(tti_dat_wide3)[1:40]
\end{Sinput}
\begin{Soutput}
 [1] "Year"                                            
 [2] "Annual.Congestion.Cost.Akron.OH"                 
 [3] "Delay.per.Commuter.Akron.OH"                     
 [4] "Population.Akron.OH"                             
 [5] "Annual.Congestion.Cost.Albany.NY"                
 [6] "Delay.per.Commuter.Albany.NY"                    
 [7] "Population.Albany.NY"                            
 [8] "Annual.Congestion.Cost.Albuquerque.NM"           
 [9] "Delay.per.Commuter.Albuquerque.NM"               
[10] "Population.Albuquerque.NM"                       
[11] "Annual.Congestion.Cost.Allentown.Bethlehem.PA.NJ"
[12] "Delay.per.Commuter.Allentown.Bethlehem.PA.NJ"    
[13] "Population.Allentown.Bethlehem.PA.NJ"            
[14] "Annual.Congestion.Cost.Anchorage.AK"             
[15] "Delay.per.Commuter.Anchorage.AK"                 
[16] "Population.Anchorage.AK"                         
[17] "Annual.Congestion.Cost.Atlanta.GA"               
[18] "Delay.per.Commuter.Atlanta.GA"                   
[19] "Population.Atlanta.GA"                           
[20] "Annual.Congestion.Cost.Austin.TX"                
[21] "Delay.per.Commuter.Austin.TX"                    
[22] "Population.Austin.TX"                            
[23] "Annual.Congestion.Cost.Bakersfield.CA"           
[24] "Delay.per.Commuter.Bakersfield.CA"               
[25] "Population.Bakersfield.CA"                       
[26] "Annual.Congestion.Cost.Baltimore.MD"             
[27] "Delay.per.Commuter.Baltimore.MD"                 
[28] "Population.Baltimore.MD"                         
[29] "Annual.Congestion.Cost.Baton.Rouge.LA"           
[30] "Delay.per.Commuter.Baton.Rouge.LA"               
[31] "Population.Baton.Rouge.LA"                       
[32] "Annual.Congestion.Cost.Beaumont.TX"              
[33] "Delay.per.Commuter.Beaumont.TX"                  
[34] "Population.Beaumont.TX"                          
[35] "Annual.Congestion.Cost.Birmingham.AL"            
[36] "Delay.per.Commuter.Birmingham.AL"                
[37] "Population.Birmingham.AL"                        
[38] "Annual.Congestion.Cost.Boise.ID"                 
[39] "Delay.per.Commuter.Boise.ID"                     
[40] "Population.Boise.ID"                             
\end{Soutput}
\end{Schunk}
