各位老师、同学：
我在使用R语言的lasso算法时候遇到了一个问题，就是在使用lar包的lars函数时候，算出矩阵X和Y的拟合度为1，并且变换期数拟合度也是不变，不知道是出现什么问题，希望各位大牛能指点一下。具体代码与截图如下：
训练集为tdata0和y0，预测集为tdata1和y1，分别取数据的前52期和后6期，并将其矩阵化：

数据导入情况如下：


使用lars函数进行变量选取，所得的R方居然为1：


我看到其他的例子里面，R方都不为1，不知道是什么环节出了错误？本人还是刚刚使用R语言，烦请指教，谢谢～