当param等于0时，向量中的延伸数

Question

当param等于0时，如何在向量中找到延伸（块）的数量？在这个例子中，答案是3。

向量param：

param <- c(25, 20, 18, 5, 1, 0, 0, 0, 1, 5, 0, 0, 3, 6, 9, 0, 0)

Answer 1

我将假设“拉伸”至少是两个或更多值。但是有你的测试数据

x<- c(25, 20, 18, 5, 1, 0, 0, 0, 1, 5, 0, 0, 3, 6, 9, 0, 0)

我会使用rle()函数来计算游程长度

with(rle(x), sum(values==0 & lengths>1))
# [1] 3