# NOT RUN {
library(survPen)
set.seed(15)
X <- matrix(rnorm(10*3),nrow=10,ncol=3)
S <- matrix(rnorm(3*3),nrow=3,ncol=3) ; S <- 0.5*( S + t(S))
# applying sum-to-zero constraint to a desgin matrix and a penalty matrix
constr <- constraint(X,S)
# }
Run the code above in your browser using DataLab