我有一个名为“抛掷”的列表，其中包含 100 次抛硬币。 toss[[1]] 给了我这个(只是例子)
0 1 0 0 1 1 1 0 0 0 1 1 0 1
我想知道我的运行次数。
在本例中，它应该给我 8，因为:
0 | 1 | 0 0 | 1 1 1 | 0 0 0 | 1 1 | 0 | 1 --> 8 runs
由于我进行了 100 次抛掷，因此我需要计算每次抛掷的运行计数 (R)。
我怎样才能做到这一点？
我尝试使用 rle() 函数，但没有成功。
最佳答案
rle 的输出是一个由长度和值组成的命名列表。
str(rle(toss))
#List of 2
# $ lengths: int [1:8] 1 1 2 3 3 2 1 1
# $ values : num [1:8] 0 1 0 1 0 1 0 1
# - attr(*, "class")= chr "rle"
提取长度或值并获取长度
length(rle(toss)$lengths)
函数lengths将获取每个list元素的length，然后提取第一个长度
lengths(rle(toss))[[1]]
数据
toss <- c(0, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 1)
关于r - 如何找到列表中的运行次数？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/50729853/