Gin_loves_math的博客

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$C

等我考试周结束了 我一定开始认真学编程 嗯！