\begin{Schunk}
\begin{Sinput}
 party_value_old <- levels(anes1$V043116)
 party_value_old
\end{Sinput}
\begin{Soutput}
[1] "0. Strong Democrat (2/1/.)"           
[2] "1. Weak Democrat (2/5-8-9/.)"         
[3] "2. Independent-Democrat (3-4-5/./5)"  
[4] "3. Independent-Independent"           
[5] "4. Independent-Republican (3-4-5/./1)"
[6] "5. Weak Republican (1/5-8-9/.)"       
[7] "6. Strong Republican (1/1/.)"         
[8] "7. Other;minor party;refuses to say"  
\end{Soutput}
\begin{Sinput}
 anes1$V043116[anes1$V043116 %in% party_value_old[8]] <- NA
 table(anes1$V043116)
\end{Sinput}
\begin{Soutput}
           0. Strong Democrat (2/1/.) 
                                  203 
         1. Weak Democrat (2/5-8-9/.) 
                                  179 
  2. Independent-Democrat (3-4-5/./5) 
                                  210 
           3. Independent-Independent 
                                  118 
4. Independent-Republican (3-4-5/./1) 
                                  138 
       5. Weak Republican (1/5-8-9/.) 
                                  154 
         6. Strong Republican (1/1/.) 
                                  193 
  7. Other;minor party;refuses to say 
                                    0 
\end{Soutput}
\end{Schunk}
