\begin{Schunk}
\begin{Sinput}
 lvl <- levels(anes1$V043213)
 econnew <- factor(anes1$V043213, levels = lvl[c(2, 3, 1)], labels = c("Worse", "Same", "Better"))
 table(anes1$V043213, econnew)
\end{Sinput}
\begin{Soutput}
             econnew
              Worse Same Better
  1. Better       0    0    190
  3. Worse      668    0      0
  5. The same     0  343      0
\end{Soutput}
\begin{Sinput}
 anes1$V043213 <- econnew
 rm(econnew)
\end{Sinput}
\end{Schunk}
