\begin{Schunk}
\begin{Sinput}
 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.")
\end{Sinput}
\end{Schunk}
