Lasso降维代码lasso降维
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) #求
