如何在r中构建累积相乘元素的运行计数？

# 定义一个向量
vec <- c(2, 3, 4, 5)

# 初始化累积计数变量
cumulative <- 1

# 循环遍历向量中的元素，并进行累积相乘
for (i in 1:length(vec)) {
  cumulative <- cumulative * vec[i]
}

# 输出结果
print(cumulative)

# 定义一个向量
vec <- c(2, 3, 4, 5)

# 定义递归函数
calculate_cumulative <- function(vec, index, cumulative) {
  if (index > length(vec)) {
    return(cumulative)
  } else {
    return(calculate_cumulative(vec, index + 1, cumulative * vec[index]))
  }
}

# 调用递归函数，并输出结果
result <- calculate_cumulative(vec, 1, 1)
print(result)