Add every element in a vector in R without using 'SUM' function

Question

I am trying to get the total of every element in a vector without using any inbuilt functions:

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

But I am getting output 7 instead of 21. Could someone please let me know where I am going wrong?

Answer 1

Just use Reduce :

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