x<-c(1,2,3,4,5,6,7,8,9,10)
> test_lr<-list()
> for(i in 3:length(x))
+ {
+   test_lr[[1]][i-2]<-sum(x[(i-2):i])
+ }
Error in `*tmp*`[[1]] : subscript out of bounds，
出现这种错误是为什么，怎么改