\begin{Schunk}
\begin{Sinput}
 ##Flag
 (lvl <- levels(anes1$V045145X))
\end{Sinput}
\begin{Soutput}
[1] "1. Extremely good"           
[2] "2. Very good"                
[3] "3. Somewhat good"            
[4] "4. Not very good"            
[5] "7. Don't feel anything {VOL}"
[6] "8. Don't know"               
[7] "9. Refused"                  
\end{Soutput}
\begin{Sinput}
 anes1$V045145X[anes1$V045145X %in% lvl[6:7]] <- NA
 anes1$V045145X <- anes1$V045145X[, drop = TRUE] 
 table(anes1$V045145X)
\end{Sinput}
\begin{Soutput}
           1. Extremely good                 2. Very good 
                         570                          338 
            3. Somewhat good             4. Not very good 
                         175                           38 
7. Don't feel anything {VOL} 
                          18 
\end{Soutput}
\begin{Sinput}
 levels(anes1$V045145X) <- c("EG", "VG", "SG", "NVG", "DFA")
 table(anes1$V045145X)
\end{Sinput}
\begin{Soutput}
 EG  VG  SG NVG DFA 
570 338 175  38  18 
\end{Soutput}
\end{Schunk}
