\begin{Schunk}
\begin{Sinput}
 dat$w8 <- dat$w2
 levels(dat$w8) <- c("f", "g", "h", NA, NA)
 table(dat$w8)
\end{Sinput}
\begin{Soutput}
 f  g  h 
 8 14  8 
\end{Soutput}
\end{Schunk}
