\begin{Schunk}
\begin{Sinput}
 dat$newpolv <- dat$polviews
 (levnpv <- levels(dat$newpolv))
\end{Sinput}
\begin{Soutput}
[1] "EXTREMELY LIBERAL"    "LIBERAL"             
[3] "SLIGHTLY LIBERAL"     "MODERATE"            
[5] "SLGHTLY CONSERVATIVE" "CONSERVATIVE"        
[7] "EXTRMLY CONSERVATIVE"
\end{Soutput}
\begin{Sinput}
 dat$newpolv[dat$newpolv %in% levnpv[5:7]] <- levnpv[6]
\end{Sinput}
\end{Schunk}
