在不使用“SUM”函数的情况下添加 R 中向量中的每个元素

Question

我试图在不使用任何内置函数的情况下获取向量中每个元素的总数：

x <- 1:6
arraysum <- function(x){
  for (i in 1:length(x)) {
    y <- 0
    y <- i+1
  }
  print(y)
}

但是我得到的是输出 7 而不是 21。有人可以告诉我我哪里出错了吗？

Answer 1

只需使用Reduce ：

Reduce(`+`, x)
# [1] 21