\begin{Schunk}
\begin{Sinput}
 dat$w10 <- dat$w2
 dat$w10[dat$w10 %in% xl[4:5]] <- NA
\end{Sinput}
\end{Schunk}
