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