\begin{Schunk}
\begin{Sinput}
 nes2002$bushvotef <- factor(nes2002$V023111, levels = c(1, 3), labels = c("Gore", "Bush"))
 table(nes2002$bushvote, nes2002$V023111, exclude = NULL)
\end{Sinput}
\begin{Soutput}
         1   3   5   7 <NA>
  Gore 431   0   0   0    0
  Bush   0 502   0   0    0
  <NA>   0   0  32   8  538
\end{Soutput}
\end{Schunk}
