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...<div><br></div><div>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....</div>

<div><br></div><div>uma alternativa que vc tem e' salvar uma tabela para cada ano....</div><div><br></div><div>(mais uma vez exemplo reproduzivel....)</div><div><br></div><div><br></div><div><span style>exemplo = structure(list(X1979 = c(1L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, </span><div style>

0L, 1L, 0L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, 0L, 0L, 1L, 1L, 1L, 1L, </div><div style>1L, 1L), X1980 = c(0L, 0L, 1L, 1L, 1L, 0L, 0L, 1L, 0L, 0L, 1L, </div><div style>1L, 1L, 1L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 0L, 0L, 0L, 0L, 0L)),</div>

<div style>.Names = c("X1979", "X1980"), class = "data.frame",</div><div style>row.names = c(NA, -27L))</div><div style>resultados = lapply(exemplo, rle)</div><div>tabelas = lapply(resultados, function(x) as.data.frame(unclass(x)))</div>

<div>lapply(names(tabelas), function(x) write.table(tabelas[[x]], file=paste(x, '.txt', sep=''), quote=FALSE, sep='\t', row.names=FALSE))</div><div><br></div><div>dai' procure os arquivos no seu diretorio local.</div>

<div><br></div><div>benilton</div><div><br><div class="gmail_quote">2012/3/29 Lucas Fernandes de Souza <span dir="ltr"><<a href="mailto:luc.souza@usp.br">luc.souza@usp.br</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

ok...deu certo, muito obrigado...Agora, como eu consigo salvar esse resultado...<br>
estou tentando salvar com o seguinte comando write.table, mas fala que não é data.frame...<br>
obrigado mais uma vez<br>
<br>
<br>
<br>
Citando Benilton Carvalho <<a href="mailto:beniltoncarvalho@gmail.com" target="_blank">beniltoncarvalho@gmail.com</a>>:<div class="HOEnZb"><div class="h5"><br>
<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
exemplo = structure(list(X1979 = c(1L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L,<br>
0L, 1L, 0L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, 0L, 0L, 1L, 1L, 1L, 1L,<br>
1L, 1L), X1980 = c(0L, 0L, 1L, 1L, 1L, 0L, 0L, 1L, 0L, 0L, 1L,<br>
1L, 1L, 1L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 0L, 0L, 0L, 0L, 0L)),<br>
.Names = c("X1979", "X1980"), class = "data.frame",<br>
row.names = c(NA, -27L))<br>
<br>
lapply(exemplo, rle)<br>
<br>
O resultado sera:<br>
<br>
$X1979<br>
Run Length Encoding<br>
  lengths: int [1:11] 1 6 1 2 1 1 1 1 5 2 ...<br>
  values : int [1:11] 1 0 1 0 1 0 1 0 1 0 ...<br>
<br>
$X1980<br>
Run Length Encoding<br>
  lengths: int [1:9] 2 3 2 1 2 4 4 4 5<br>
  values : int [1:9] 0 1 0 1 0 1 0 1 0<br>
<br>
a interpretacao fica pra vc... assim como a dica da criacao do conjunto de<br>
dados de exemplo.<br>
<br>
b<br>
<br>
</blockquote>
<br>
<br>
<br></div></div><div class="HOEnZb"><div class="h5">
-- <br>
Lucas F. de Souza<br>
Eng. Agrícola - CONAB<br>
M.Sc. Produção Vegetal - UENF<br>
Doutorando Engenharia de Sistemas Agrícolas - ESALQ/USP<br>
tel: (19) 8160-7068<br>
<br>
______________________________<u></u>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/<u></u>cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-<u></u>guia</a>) e forneça código mínimo reproduzível.<br>
</div></div></blockquote></div><br></div></div>