\begin{Schunk}
\begin{Sinput}
  with(dat, table(grp, grpfaco))
\end{Sinput}
\begin{Soutput}
   grpfaco
grp Number2 Number1 Number3
  1       0       6       0
  2       7       0       0
  3       0       0       6
\end{Soutput}
\end{Schunk}
