\begin{Schunk}
\begin{Sinput}
 nes2002$bushvote <- NA 
 nes2002$bushvote[nes2002$V023111 == 1] <- 0
 nes2002$bushvote[nes2002$V023111 == 3] <- 1
 nes2002$democ <- ifelse(nes2002$V023036==1,1,0) 
 nes2002$repub <- ifelse(nes2002$V023036==2,1,0)
\end{Sinput}
\end{Schunk}
