概述
lasso降维
var foo = 'bar';library(lars)
x<-n.data[,3:(length(n.data))]
#提取预测变量部分数据
x<-as.matrix(x)
#转为矩阵格式
y<-n.data[,2]
#提取响应变量部分数据
y<-as.matrix(y)
#转为矩阵格式
lar1<-lars(x,y,type = "lasso")
summary(lar1)
#求取cp值
lar1$Cp[which.min(lar1$Cp)]#选择cp最小的模型
lar1$beta#找到cp值最小时对应的模型的自变量的系数，系数为0的是不重要变量
最后
以上就是饱满御姐为你收集整理的Lasso降维代码lasso降维的全部内容，希望文章能够帮你解决Lasso降维代码lasso降维所遇到的程序开发问题。
如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
发表评论 取消回复