R负下标

Question

我正在尝试移动我的数组，所以我写了一个非常简单的函数如下：

getLagMatrix <- function(df, k){

    output <- df$AAPL[ k : nrow(df) ]
    for( i in c(1 : k) ){

            toPaste <- paste('_',i, sep='')

            print( c(i, nrow(df) - k + i - 1 ) )
            toBind <- df [ c(i : nrow(df) - k + i - 1), ] #the problem is obviously here
            names(toBind) <- paste(names(toBind),toPaste,sep='') 
            output <- cbind( output, toBind )
    }
}

然后我打电话给：

> dim(returns)
[1] 3103    6   
> getLagMatrix(returns, 3)

然后打印出来：

[1]    1 3100
Error in xj[i] : only 0's may be mixed with negative subscripts 

我不知道为什么这会导致我出现这样的问题，但它可能显而易见，我没有看到。任何帮助深表感谢。