\begin{Schunk}
\begin{Sinput}
 anes1$V045117 <- mapvalues(anes1$V045117, 
                      from = ideolevels$levels_old, 
                      to = ideolevels$levels_new)
 anes1$V043116 <- anes1$V045117[, drop = TRUE]
 rm(ideolevels) # remove unneeded object
 table(anes1.orig$V045117, anes1$V045117) # check
\end{Sinput}
\begin{Soutput}
                                           EL   L  SL   M
  01. Extremely liberal                    20   0   0   0
  02. Liberal                               0 103   0   0
  03. Slightly liberal                      0   0 125   0
  04. Moderate;middle of the road           0   0   0 279
  05. Slightly conservative                 0   0   0   0
  06. Conservative                          0   0   0   0
  07. Extremely conservative                0   0   0   0
  80. Haven't thought much {DO NOT PROBE}   0   0   0   0
  88. Don't know                            0   0   0   0
  89. Refused                               0   0   0   0
                                         
                                           SC   C  EC
  01. Extremely liberal                     0   0   0
  02. Liberal                               0   0   0
  03. Slightly liberal                      0   0   0
  04. Moderate;middle of the road           0   0   0
  05. Slightly conservative               143   0   0
  06. Conservative                          0 166   0
  07. Extremely conservative                0   0  31
  80. Haven't thought much {DO NOT PROBE}   0   0   0
  88. Don't know                            0   0   0
  89. Refused                               0   0   0
\end{Soutput}
\end{Schunk}
