definitivamente nao eh um data.frame... afinal, data.frames exigem que todas as colunas tenham o mesmo numero de linhas e esse nao e' o caso para frequencias de chuvas por ano... 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.... (mais uma vez exemplo reproduzivel....) 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
-- 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<https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-**guia<http://www.leg.ufpr.br/r-br-guia>) e forneça código mínimo reproduzível.