\begin{Schunk}
\begin{Sinput}
 preslev <- levels(dat$pres04)
 dat$pres04[dat$pres04 %in% preslev[3:10]]<- NA
 dat$pres04 <- factor(dat$pres04)
 levels(dat$pres04) <- c("Kerry", "Bush")
\end{Sinput}
\end{Schunk}
