\begin{Schunk}
\begin{Sinput}
 x <- 1:7
 xf <- factor(x)
 contrasts(xf)
\end{Sinput}
\begin{Soutput}
  2 3 4 5 6 7
1 0 0 0 0 0 0
2 1 0 0 0 0 0
3 0 1 0 0 0 0
4 0 0 1 0 0 0
5 0 0 0 1 0 0
6 0 0 0 0 1 0
7 0 0 0 0 0 1
\end{Soutput}
\end{Schunk}
