find the sum of all elements in an array in r

main.r
my_array <- c(1, 2, 3, 4, 5)
array_sum <- sum(my_array)
cat("The sum of the array is:", array_sum)
99 chars
4 lines

main.r
The sum of the array is: 15
28 chars
2 lines

main.r
my_array <- array(1:12, dim = c(3, 4))
array_sum <- 0

for (i in 1:dim(my_array)[1]) {
  for (j in 1:dim(my_array)[2]) {
    array_sum <- array_sum + my_array[i, j]
  }
}

cat("The sum of the array is:", array_sum)
215 chars
11 lines

main.r
The sum of the array is: 78
28 chars
2 lines