返回r中给定阈值的向量

我写了下面的代码-对于给定的阈值，它应该将数字相加，直到它低于或等于该阈值，例如（0，1，1，1，2，4）-0+1+1+1=3，并提供迭代次数，即4。这似乎是可行的，但对于向量来说不是，例如[1:10]-我做错了什么

sumf<-function(y){
    sum<-0
    for(i in 1:(length(y))){
        sum=sum+y[i]
    }
    print(sum) 
}

sumf(x<n)

---

sumf也许可以试试
cumsum

x <- c(0, 6, 3, 8, 5, 2, 4, 0, 2, 2)
data.frame(id = 1:length(x), x, sum = cumsum(x))

   id x sum
1   1 0   0
2   2 6   6
3   3 3   9
4   4 8  17
5   5 5  22
6   6 2  24
7   7 4  28
8   8 0  28
9   9 2  30
10 10 2  32

x请显示预期输出