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

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