我在 r 的 for 循环代码中找不到错误

我有这个代码：

test_x <- 2000

#functions used:

`%+<-%` = function(e1,e2) eval.parent(substitute(e1 <- e1 + e2))

CreateData <- function()
{
numeric(test_x)
}

#variables

test_sum <- 0
test_q <- 0
test_q <- CreateData()
test_Q <- 0
test_Q <- CreateData()
test_step <- 0.01

#two for loops

for (i in test_x) {
  test_q[i] <- 40
}
for (i in (test_x - 1):0) {
  test_sum %+<-% (test_q[i]*test_step)
  test_Q[i] <- test_sum
}

我期望第一个 for 循环会在 2000 个位置中的每个位置用 40 填充 test_q，但每个位置都为零。因此，第二个循环也保持为零。

没有错误。我做错了什么？