\begin{Schunk}
\begin{Sinput}
 table(is.na(dat$y), dat.orig$y, exclude = NULL)
\end{Sinput}
\end{Schunk}
