在不使用'SUM'函数的情况下将向量中的每个元素相加

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