\begin{Schunk}
\begin{Sinput}
 ##Party
 table(anes1$V043116, exclude = NULL)
\end{Sinput}
\begin{Soutput}
             0. Strong Democrat (2/1/.)            1. Weak Democrat (2/5-8-9/.) 
                                    203                                     179 
    2. Independent-Democrat (3-4-5/./5)              3. Independent-Independent 
                                    210                                     118 
  4. Independent-Republican (3-4-5/./1)          5. Weak Republican (1/5-8-9/.) 
                                    138                                     154 
           6. Strong Republican (1/1/.)     7. Other;minor party;refuses to say 
                                    193                                       5 
8. Apolitical (5/./3-8-9 if apolitical)                           9. DK (8/./.) 
                                      0                                       0 
                                   <NA> 
                                     12 
\end{Soutput}
\end{Schunk}
