r - 如何从 R 中的套索回归中获得系数？

Question

有人能告诉我如何lars在 R 的包中获得套索回归的系数吗？

例如，如果代码如下：

     test_lasso=lars(A,B)

谢谢你。

Answer 1

   #First get cross validation score: 
   test_lasso_cv=cv.lars(A,B)

   # Find the best one
   bestfraction = test_lasso_cv$index[which.min(test_lasso_cv$cv)]

   #Find Coefficients
   coef.lasso = predict(test_lasso,A),s=bestfraction,type="coefficient",mode="fraction")