如何从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")