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降维内容请搜索靠谱客的其他文章。
本图文内容来源于网友提供,作为学习参考使用,或来自网络收集整理,版权属于原作者所有。
发表评论 取消回复