\begin{Schunk}
\begin{Sinput}
 ##Party
 mydta1$V043116 <- mydta1$V043116[,drop = TRUE]
 levels(mydta1$V043116) <- c("SD","WD","ID","I","IR","WR","SR","O")
 mydta1$V043116[ mydta1$V043116 %in% levels(mydta1$V043116)[8] ] <- NA
 mydta1$V043116 <- mydta1$V043116[, drop=TRUE]
 table(mydta1$V043116)
\end{Sinput}
\begin{Soutput}
 SD  WD  ID   I  IR  WR  SR 
203 179 210 118 138 154 193 
\end{Soutput}
\begin{Sinput}
 ##IDEO
 mydta1$V045117 <- mydta1$V045117[ ,drop = TRUE]
 levels(mydta1$V045117) <- c("EL","L","SL","M","SC","C","EC")
 table(mydta1$V045117)
\end{Sinput}
\begin{Soutput}
 EL   L  SL   M  SC   C  EC 
 20 103 125 279 143 166  31 
\end{Soutput}
\begin{Sinput}
 ##Gender
 levels(mydta1$V041109A) <- c("M","F")
 ## Gay Marriage
 levels(mydta1$V043210) 
\end{Sinput}
\begin{Soutput}
[1] "1. Should be allowed"                                    "3. Should not be allowed"                               
[3] "5. Should not be allowed to marry but should be allowed" "VOL"                                                    
[5] "8. Don't know"                                           "9. Refused"                                             
\end{Soutput}
\begin{Sinput}
 mydta1$V043210[ mydta1$V043210 %in% levels(mydta1$V043210)[4:10] ] <-NA  
 mydta1$V043210 <- mydta1$V043210[, drop = TRUE]
 levels(mydta1$V043210) <- c("Allow","No","Med") 
 ## Economy
 mydta1$V043213 <- mydta1$V043213[ ,drop = TRUE]
 l <- levels(mydta1$V043213)
 econnew <- factor(mydta1$V043213, levels=c(l[2],l[3],l[1]), labels=c("Worse","Same","Better"))
 table(mydta1$V043213, econnew)
\end{Sinput}
\begin{Soutput}
             econnew
              Worse Same Better
  1. Better       0    0    190
  3. Worse      668    0      0
  5. The same     0  343      0
\end{Soutput}
\begin{Sinput}
 mydta1$V043213 <- econnew
 rm(econnew)
 ##Flag
 mydta1$V045145X <- mydta1$V045145X[,drop = TRUE] 
\end{Sinput}
\end{Schunk}
