如何从R中的Lasso回归中获得系数？

Question

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

例如，如果代码如下：

     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")