\begin{Schunk}
\begin{Sinput}
 table("ideology: factor" = nes2002$ideolf, 
        "ideology: original" = nes2002$V023022, exclude = NULL)
\end{Sinput}
\begin{Soutput}
                ideology: original
ideology: factor   1   2   3   4   5   6   7 <NA>
            EL    23   0   0   0   0   0   0    0
            L      0 181   0   0   0   0   0    0
            SL     0   0 135   0   0   0   0    0
            M      0   0   0 340   0   0   0    0
            SC     0   0   0   0 186   0   0    0
            C      0   0   0   0   0 315   0    0
            EC     0   0   0   0   0   0  65    0
            <NA>   0   0   0   0   0   0   0  266
\end{Soutput}
\end{Schunk}
