######***###### grpnet ######***######
# load data
data(auto)
# fit model (formula method, response = mpg)
mod <- grpnet(mpg ~ ., data = auto)
# extract coefs for regularization path (output = 12 x 100 matrix)
coef(mod)
# extract coefs at 3 particular points (output = 12 x 3 matrix)
coef(mod, s = c(1.5, 1, 0.5))
######***###### cv.grpnet ######***######
# load data
data(auto)
# 5-fold cv (formula method, response = mpg)
set.seed(1)
mod <- cv.grpnet(mpg ~ ., data = auto, nfolds = 5, alpha = 1)
# extract coefs for "min" solution (output = 12 x 1 matrix)
coef(mod)
# extract coefs for "1se" solution (output = 12 x 1 matrix)
coef(mod, s = "lambda.1se")
# extract coefs at 3 particular points (output = 12 x 3 matrix)
coef(mod, s = c(1.5, 1, 0.5))
Run the code above in your browser using DataLab