到阈值之前的数字总和列表

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