\begin{Schunk}
\begin{Sinput}
 ##Party
 ## drop unused levels
 anes1$V043116 <- anes1$V043116[, drop = TRUE]
 table(anes1$V043116, exclude = NULL)
\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 
                                    5 
                                 <NA> 
                                   12 
\end{Soutput}
\end{Schunk}
