\begin{Schunk}
\begin{Sinput}
 nes2002$ideoln <- as.numeric(nes2002$ideolf) # converts to 1 thru 7
 table(nes2002$ideolf, nes2002$ideoln, dnn = list("factor version", "ideology: numeric version"), exclude = NULL)
\end{Sinput}
\begin{Soutput}
              ideology: numeric version
factor version   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}
