\begin{Schunk}
\begin{Sinput}
 cities <- c("Dallas Texas", "Denver Colorado", "Austin Texas", "Salem Oregon", "Salem Massachusetts", "California Pennsylvania", "Long Beach California", "San Francisco California", "Texas Missouri", "Nevada Missouri", "St. Louis Missouri", "Truth or Consequences New Mexico", "Charleston South Carolina", "Charleston North Carolina") 
\end{Sinput}
\end{Schunk}
