R實現LASSO

library(lars)

data <- as.matrix(data)

out2 <- lars(x=data[,1:13],y=data[,14],type ="lar")

 

summary(out2)

 

Cp的含義：衡量多重共線性，其取值越小越好，這裏取到第6步使得Cp值最小，也就是選擇X7,X3,X5,X11,X6,X10 這6個變量。

#肯定Cp值最小的步數

coef <- coef.lars(out2, mode="step", s=7)
coef[coef!=0]

---------------------
做者：liuzhilu
來源：CSDN
原文：https://blog.csdn.net/liuzhilu/article/details/80293102
版權聲明：本文爲博主原創文章，轉載請附上博文連接！