我有一个整数列表,我想要对其进行求和,直到满足阈值,然后能够访问达到阈值的索引。
就像是:
summing <- function(i){
sum = sum + list[i]
index = i
while(sum < thresholdValue){
summing(i++)
}}
但是,我不太熟悉在 R 中编写函数,因此不能 100% 确定应该如何完成此操作。
试试这个例子:
#data
x <- 1:10
#set threshold
thresholdValue <- 13
#index
ix <- length(which(cumsum(x) <= thresholdValue))
# 4
#sum
sum(x[1:ix])
#[1] 10
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)