如果原子向量的上次运行为零，我只想计算上次运行的连续零个数。
例如：
a <- c(1, 0, 0, 0)
因此，上次运行的连续零数为3。
如果最后一次运行不为零，则答案必须为零。例如
a <- c(0, 1, 1, 0, 0, 1)
因此，答案为零，因为在上一次运行中，结果为1，而不是零。
我不想使用任何外部包装。我设法编写了一个使用循环的函数。但是我认为必须存在更有效的方法。
a <- c(1, 0, 0, 0)
谢谢 ：）
反转a，然后计算其累计和。前导0将是剩下的唯一0，并且！其中每个元素均为TRUE，其他元素为FALSE。其总和是所需的数字。
sum(!cumsum(rev(a)))