# NOT RUN {
contr.orthonorm(2) # Q_2 in Rouder et al. (2012, p. 363)
contr.orthonorm(5) # equivalent to Q_5 in Rouder et al. (2012, p. 363)
## check decomposition
Q3 <- contr.orthonorm(3)
Q3 %*% t(Q3) ## 2/3 on diagonal and -1/3 on off-diagonal elements
# }
Run the code above in your browser using DataLab