Aliases: contr.sdif
Keywords: models
### ** Examples (A <- contr.sdif(6))
2-1 3-2 4-3 5-4 6-5 1 -0.8333333 -0.6666667 -0.5 -0.3333333 -0.1666667 2 0.1666667 -0.6666667 -0.5 -0.3333333 -0.1666667 3 0.1666667 0.3333333 -0.5 -0.3333333 -0.1666667 4 0.1666667 0.3333333 0.5 -0.3333333 -0.1666667 5 0.1666667 0.3333333 0.5 0.6666667 -0.1666667 6 0.1666667 0.3333333 0.5 0.6666667 0.8333333
zapsmall(ginv(A))
[,1] [,2] [,3] [,4] [,5] [,6] [1,] -1 1 0 0 0 0 [2,] 0 -1 1 0 0 0 [3,] 0 0 -1 1 0 0 [4,] 0 0 0 -1 1 0 [5,] 0 0 0 0 -1 1