如何在r中不使用cumprod的情况下对向量进行累加乘法？

my_vector <- c(2, 3, 4, 5) # 假设要对该向量进行累加乘法
result <- numeric(length(my_vector)) # 创建一个与向量长度相同的空向量
result[1] <- my_vector[1] # 将第一个元素赋给结果向量

for (i in 2:length(my_vector)) {
  result[i] <- result[i-1] * my_vector[i] # 逐个元素进行累加乘法
}

result # 输出结果向量

my_vector <- c(2, 3, 4, 5) # 假设要对该向量进行累加乘法

recursive_cumprod <- function(vector, index) {
  if (index == 1) {
    return(vector[1]) # 递归结束条件，返回第一个元素
  } else {
    return(recursive_cumprod(vector, index-1) * vector[index]) # 递归进行累加乘法
  }
}

result <- sapply(1:length(my_vector), function(i) recursive_cumprod(my_vector, i)) # 应用递归函数到每个元素
result # 输出结果向量