\begin{Schunk}
\begin{Sinput}
 nes2002$usecono <- factor(nes2002$V023027, levels = c(1, 3, 5),  
          labels = c("Better", "Same", "Worse"),
          ordered = TRUE)
 nes2002$useconn <- nes2002$V023027
 table("US Econ(ordered)" = nes2002$usecono, 
        "US Econ (orig)" = nes2002$V023027, exclude = NULL)
\end{Sinput}
\begin{Soutput}
                US Econ (orig)
US Econ(ordered)    1    3    5 <NA>
          Better   69    0    0    0
          Same      0  321    0    0
          Worse     0    0 1112    0
          <NA>      0    0    0    9
\end{Soutput}
\end{Schunk}
