R码迭代

我的目标是使用iter生成R中的向量：

0 + 1 = 1,

1 + 2 = 3,

3 + 3 = 6,

6 + 4 = 10

我尝试了下面的代码，但没有给出正确的号码：

iter <- 4
w_vector <- rep(0, iter)
for(i in 1:iter) {w_vector[i] <-sum(i, i-1)
                  print(w_vector[i])
}

iter你可以做：

w_vector <- cumsum(seq(iter))
w_vector
# [1]  1  3  6 10

对于
for
循环和
cumsum
之间的内容（如果您想对更复杂的问题应用类似的逻辑），请查看
Reduce
函数。
iter <- 4
w_vector <- rep(0, iter)
w_vector[1] <- 1
for(i in 2:iter) {
  w_vector[i] <- w_vector[i-1] + i
}
w_vector
# [1]  1  3  6 10