R中的向量索引

Question

我正在计算一个由10个数字组成的序列中有多少个连续的0或1。

例如0 0 1 0 1 1 0 1 0 1 1 1

有4个(00，11，11，11)。

这是我的代码。

c <- floor(2 * runif(10))
count = 0

for (i in 1:length(c)) {
        a = c[i] 
        b = c[i+1]
        if (a == b) {
             count = count + 1
    }
    count
    }

错误: if (a == b) {：需要TRUE/FALSE时缺少值

谢谢。

Answer 1

我们可以使用rle：

with(rle(x), sum(lengths[lengths > 1] - 1))
#[1] 4

data

x <- c(0, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 1)