## set the design matrix
X <- matrix(c(1,0,2,2,1,0,-1,1,1,2,0,1),4,3,byrow=TRUE)
## set the vector of observations
Y <- c(1,0,2,1)
## set the penalty level
lambda <- 1
## compute the Lasso estimate using SCS
sqR_Lasso(X, Y, lambda, solver="SCS")Run the code above in your browser using DataLab