我目前正在使用LASSO-LAR算法来构建稀疏模型。但是,即使我指定面团应该估算出截距,似乎也不会打印出截距。
我的代码是:
lars_fit<-lars(x,y,type = c("lasso"),trace=TRUE,normalize=TRUE,max.steps=min(ncol(x),nrow(data)-1),intercept = TRUE).
为了提取系数,我使用:
coeff_LASSOLAR<-predict(lars.fit,type = c("coefficients"),mode = c("fraction"),s=s.cvmin)
coeff_LASSOLAR<-coeff_LASSOLAR$coefficients
此处,最佳调整参数为s=s.cvmin
。
如果我运行coeff_LASSOLAR
,它不会打印出拦截项。
有人可以帮助我吗?