Как получить коэффициенты из регрессии Лассо в 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")