Off topic:how to extract AIC(Akaike's Inforation Criterion) in LAR(Least Angle Regression) in R Studio?

Question

[karlpersius.manlimos]

I'm already done in conducting the whole LAR Algorithm using lars() function in R Studio. But my problem is how to extract or use AIC in R Studio for choosing enough the number of variable that will explain my model. If I will use the predict.lars() function, only the Cp Criterion will appear. Anybody? Thank you in advance.