# NOT RUN {
contr.bayes(2) # Q_2 in Rouder et al. (2012, p. 363)
# [,1]
# [1,] -0.7071068
# [2,] 0.7071068
contr.bayes(5) # equivalent to Q_5 in Rouder et al. (2012, p. 363)
# [,1] [,2] [,3] [,4]
# [1,] 0.0000000 0.8944272 0.0000000 0.0000000
# [2,] 0.0000000 -0.2236068 -0.5000000 0.7071068
# [3,] 0.7071068 -0.2236068 -0.1666667 -0.4714045
# [4,] -0.7071068 -0.2236068 -0.1666667 -0.4714045
# [5,] 0.0000000 -0.2236068 0.8333333 0.2357023
## check decomposition
Q3 <- contr.bayes(3)
Q3 %*% t(Q3)
# [,1] [,2] [,3]
# [1,] 0.6666667 -0.3333333 -0.3333333
# [2,] -0.3333333 0.6666667 -0.3333333
# [3,] -0.3333333 -0.3333333 0.6666667
## 2/3 on diagonal and -1/3 on off-diagonal elements
# }
Run the code above in your browser using DataLab