escreva-nos com um exemplo de como vc representaria esses resultados de subperiodos numa tabela, que a gente se propoe a ajudar mais uma vez....
uma alternativa que vc tem e' salvar uma tabela para cada ano....
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))
resultados = lapply(exemplo, rle)
tabelas = lapply(resultados, function(x) as.data.frame(unclass(x)))
lapply(names(tabelas), function(x) write.table(tabelas[[x]], file=paste(x, '.txt', sep=''), quote=FALSE, sep='\t', row.names=FALSE))
dai' procure os arquivos no seu diretorio local.
benilton
2012/3/29 Lucas Fernandes de Souza
<luc.souza@usp.br>
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