\begin{Schunk}
\begin{Sinput}
  head(dat[  , c("grp", "grpfaco", "grpfac1")])
\end{Sinput}
\begin{Soutput}
  grp grpfaco grpfac1
1   1 Number1 Number1
2   2 Number2 Number2
3   1 Number1 Number1
4   3 Number3 Number3
5   1 Number1 Number1
6   1 Number1 Number1
\end{Soutput}
\end{Schunk}
