\begin{Schunk}
\begin{Sinput}
 levels(dat$w5) <- c("John", "Paul", "George", "Ringo", "Eric")
 table(dat$w5, dat$w2)
\end{Sinput}
\begin{Soutput}
          f  g  h  i  j
  John    8  0  0  0  0
  Paul    0 14  0  0  0
  George  0  0  8  0  0
  Ringo   0  0  0 13  0
  Eric    0  0  0  0  5
\end{Soutput}
\end{Schunk}
