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