\begin{Schunk}
\begin{Sinput}
 contrasts(dat$z)
\end{Sinput}
\begin{Soutput}
  B C D
A 0 0 0
B 1 0 0
C 0 1 0
D 0 0 1
\end{Soutput}
\end{Schunk}
