\begin{Schunk}
\begin{Sinput}
 nes2002$bushvote <- ifelse(nes2002$bushvotef == "Bush", 1, 0)
 table(nes2002$bushvote, nes2002$V023111)
\end{Sinput}
\begin{Soutput}
      1   3   5   7
  0 431   0   0   0
  1   0 502   0   0
\end{Soutput}
\end{Schunk}
