rの真/偽の期間数をカウント

Question

私は時系列から派生したブールベクトルを持っています。基本的に次のようになります。c（true、false、true、true、false、false、false、true、true ...）

私はベクトルが真である期間を数えたいと思います。例：次のようなベクトルの場合：c（true、true、false、true）2（最初は1長い真の期間、最後は短い1）。

このベクターは最初にNAsを含むことができる。 =================================

aaa <- c(NA,F,T,T,T,F)  
for(j in 1:(length(aaa)-1)){ 
    if(aaa[j]!=aaa[j+1]){ 
    # add a counter that returns [1] 
    } 
} 

：

は、私のような何かを考えました================

編集：これは私のために正常に動作します：

data.frame("#"=unlist(rle(aaa)[1]),"length"=unlist(rle(aaa)[2])) 

Answer 1

これはどう：

aaa[is.na(aaa)] <- FALSE 
sum(rle(aaa)$values) 

NAをFALSEに変換し、ランレングス符号化（TRUEが1として格納されています.FALSEをゼロとして格納されています）の値がTRUE個あることを確認してください。