y <- mtcars[,1]
x <- as.matrix(mtcars[,2:11])
lambda <- lambdaseq(x, y)$lambda
if (FALSE) {
library(glmnet)
fit.lasso <- cv.glmnet(x, y, lambda = lambda)
coef.lasso <- coef(fit.lasso, s = "lambda.1se")
}
Run the code above in your browser using DataLab