# NOT RUN {
U <- c(rep(2,20), rep(5,30))
X <- replicate(6, U+rnorm(50))
beta <- c(rep(1, 3), rep(-1,3))
e <- c(rnorm(45,0,1.5),rnorm(5,-20,1))
y <- X%*%beta + e
res <- pramml(X, y, 4,"s", 16.5, opt ="l1m")
# }
Run the code above in your browser using DataLab