inst/examples/R/data/linreg/linreg_model_selection/example_lasso.R
In sigbertklinke/shinyExample: Create and run simple (interactive) programs as Shiny apps
data(Boston, package="MASS")
library("glmnet")
x <- as.matrix(Boston[,-c(9,14)])
y <- Boston[,14]
# find lambda
lmlasso <- cv.glmnet(x, y)
plot(lmlasso)
#
lmlasso <- cv.glmnet(x, y, lambda=seq(0, 1, 0.001))
plot(lmlasso)
lmlasso$lambda.min
lmlasso$lambda.1se
# compare coefficients
lm(y~x)
coef(lmlasso, s="lambda.1se")
sigbertklinke/shinyExample documentation built on May 26, 2019, 4:32 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
data(Boston, package="MASS")
library("glmnet")
x <- as.matrix(Boston[,-c(9,14)])
y <- Boston[,14]
# find lambda
lmlasso <- cv.glmnet(x, y)
plot(lmlasso)
#
lmlasso <- cv.glmnet(x, y, lambda=seq(0, 1, 0.001))
plot(lmlasso)
lmlasso$lambda.min
lmlasso$lambda.1se
# compare coefficients
lm(y~x)
coef(lmlasso, s="lambda.1se")
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.