\begin{Schunk}
\begin{Sinput}
 table(dat$w)
\end{Sinput}
\begin{Soutput}
 f  g  h  i  j 
 8 14  8 13  5 
\end{Soutput}
\end{Schunk}
