isto pode ajudar
x [1] 1 0 0 0 1 1 0 1 0 0 0 0 rle(x) Run Length Encoding lengths: int [1:6] 1 3 2 1 1 4 values : num [1:6] 1 0 1 0 1 0 length(rle(x)[[2]]) [1] 6
Em 29 de março de 2012 15:55, Lucas Fernandes de Souza <luc.souza@usp.br> escreveu:
ok...deu certo, muito obrigado...Agora, como eu consigo salvar esse resultado... estou tentando salvar com o seguinte comando write.table, mas fala que não é data.frame... obrigado mais uma vez
Citando Benilton Carvalho <beniltoncarvalho@gmail.com>:
exemplo = structure(list(X1979 = c(1L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 0L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, 0L, 0L, 1L, 1L, 1L, 1L, 1L, 1L), X1980 = c(0L, 0L, 1L, 1L, 1L, 0L, 0L, 1L, 0L, 0L, 1L, 1L, 1L, 1L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 0L, 0L, 0L, 0L, 0L)), .Names = c("X1979", "X1980"), class = "data.frame", row.names = c(NA, -27L))
lapply(exemplo, rle)
O resultado sera:
$X1979 Run Length Encoding lengths: int [1:11] 1 6 1 2 1 1 1 1 5 2 ... values : int [1:11] 1 0 1 0 1 0 1 0 1 0 ...
$X1980 Run Length Encoding lengths: int [1:9] 2 3 2 1 2 4 4 4 5 values : int [1:9] 0 1 0 1 0 1 0 1 0
a interpretacao fica pra vc... assim como a dica da criacao do conjunto de dados de exemplo.
b
-- Lucas F. de Souza Eng. Agrícola - CONAB M.Sc. Produção Vegetal - UENF Doutorando Engenharia de Sistemas Agrícolas - ESALQ/USP tel: (19) 8160-7068
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
-- Luis Iván Ortiz Valencia Doutorando Saúde Pública - Epidemiologia, IESC, UFRJ Estatístico Msc. Spatial Analyst Msc.