r - 总和直到阈值的数字列表

Question

我有一个整数列表，我想对其求和，直到达到阈值，然后才能访问达到阈值的索引。

就像是:

summing <- function(i){
sum = sum + list[i]
index = i
while(sum < thresholdValue){
summing(i++)
}}

但是，我不太精通在 R 中编写函数，因此不能 100% 确定应该如何完成。

Answer 1

试试这个例子:

#data
x <- 1:10 

#set threshold
thresholdValue <- 13

#index
ix <- length(which(cumsum(x) <= thresholdValue))
# 4

#sum
sum(x[1:ix])
#[1] 10