\begin{Schunk}
\begin{Sinput}
 cities2 <- cities
 ## I'll iterate on the abbreviations
 for(i in state.abb) {
      cities2 <- gsub(state.name[i], i, cities2)
  }  
\end{Sinput}
\end{Schunk}
