\begin{Schunk}
\begin{Sinput}
  rbind(grp = dat$grp, grpfaco = as.numeric(dat$grpfaco))[ ,1:6]
\end{Sinput}
\begin{Soutput}
        [,1] [,2] [,3] [,4] [,5] [,6]
grp        1    2    1    3    1    1
grpfaco    2    1    2    3    2    2
\end{Soutput}
\end{Schunk}
