\begin{Schunk}
\begin{Sinput}
 xo <- factor(x, ordered = TRUE)
 contrasts(xo)
\end{Sinput}
\begin{Soutput}
                .L            .Q            .C         ^4            ^5          ^6
[1,] -5.669467e-01  5.455447e-01 -4.082483e-01  0.2417469 -1.091089e-01  0.03289758
[2,] -3.779645e-01  9.690821e-17  4.082483e-01 -0.5640761  4.364358e-01 -0.19738551
[3,] -1.889822e-01 -3.273268e-01  4.082483e-01  0.0805823 -5.455447e-01  0.49346377
[4,]  2.098124e-17 -4.364358e-01  3.021644e-17  0.4834938 -9.751389e-16 -0.65795169
[5,]  1.889822e-01 -3.273268e-01 -4.082483e-01  0.0805823  5.455447e-01  0.49346377
[6,]  3.779645e-01  0.000000e+00 -4.082483e-01 -0.5640761 -4.364358e-01 -0.19738551
[7,]  5.669467e-01  5.455447e-01  4.082483e-01  0.2417469  1.091089e-01  0.03289758
\end{Soutput}
\end{Schunk}
