特定の値の最大ランレングスを見つける

Question

ランレングスを分析したいベクトルがあります。私は実行を取得するために

rle(sim) 

を使用し説明を簡単にするために、それは不公平なコインフリップので.... 100「H」と「T」です....しかし、Hさん

よりもTさんの方法より長さ

私はセットの最大ランレングスを取得するために

max(rle(sim)$length) 

を使用。しかし、私はほんの少しの価値、例えばHだけを望んでいます。どうすればいい？

Answer 1

set.seed(100) 
coins <- sample(c("H", "T"), 1000, replace = TRUE) 
rle_coins <- rle(coins) 
max(rle_coins$lengths[rle_coins$values == "H"]) 

使用tapply最大をグループ化するには：