\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")
 plev <- levels(dat$partyid)
 dat$partyid[dat$partyid %in% plev[8]] <- NA
 dat$partyid <- factor(dat$partyid)
 levels(dat$partyid) <- c("Strong Dem.", "Dem.", "Ind. Near Dem.", "Independent", "Ind. Near Repub.", "Repub.", "Strong Repub.")
 dat$owngun[ dat$owngun == "REFUSED"] <- NA
 levels(dat$sex) <- c("Male","Female")
 dat$owngun <- relevel(dat$owngun, ref="NO")
\end{Sinput}
\end{Schunk}
