在r中创建带有ifelse语句的seq

我在数据框中有一列跟踪时间变化。我正在努力弄清楚如何编写一个ifelse语句来创建一个序列，这样当一个数字（时间上的变化）大于10时，它就会增加一个。例如，要制作一个代码段，以下是输入：

input <- c(1,1,1,2,5,2,4,9,11,1,1,15,2,1)

---

但我似乎不能把这一切都放在一起。任何帮助都将不胜感激。

请尝试

cumsum

cumsum(c(TRUE,(input>10)[-length(input)]))
#[1] 1 1 1 1 1 1 1 1 1 2 2 2 3 3

---

@谢谢你的评论。我之前没有注意到。

ifelse(input>10,1,0)

cumsum(c(TRUE,(input>10)[-length(input)]))
#[1] 1 1 1 1 1 1 1 1 1 2 2 2 3 3