exemplo = structure(list(X1979 = c(1L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, <div>0L, 1L, 0L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, 0L, 0L, 1L, 1L, 1L, 1L, </div><div>1L, 1L), X1980 = c(0L, 0L, 1L, 1L, 1L, 0L, 0L, 1L, 0L, 0L, 1L, </div><div>

1L, 1L, 1L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 0L, 0L, 0L, 0L, 0L)),</div><div>.Names = c("X1979", "X1980"), class = "data.frame",</div><div>row.names = c(NA, -27L))</div><div><br></div><div>lapply(exemplo, rle)</div>

<div><br></div><div>O resultado sera:</div><div><br></div><div><div>$X1979</div><div>Run Length Encoding</div><div>  lengths: int [1:11] 1 6 1 2 1 1 1 1 5 2 ...</div><div>  values : int [1:11] 1 0 1 0 1 0 1 0 1 0 ...</div>

<div><br></div><div>$X1980</div><div>Run Length Encoding</div><div>  lengths: int [1:9] 2 3 2 1 2 4 4 4 5</div><div>  values : int [1:9] 0 1 0 1 0 1 0 1 0</div></div><div><br></div><div>a interpretacao fica pra vc... assim como a dica da criacao do conjunto de dados de exemplo.</div>

<div><br></div><div>b</div>