<div>Você está tentando inventar a roda.</div><div><br></div>Veja o funcionamento da função agreggate.<div><div><br></div><div>No pacote plyr, também existem funções que facilitam esse tipo de questão.</div><br><signature>=========================================<br>Fernando Souza<br>Celular: (31)99796-8781 (Vivo)<br><a href="https://n1.nylas.com/link/9922bcfba636ec544148b48bafb9b99934d423c4be8b040609ca91049a268816/0?redirect=mailto%3Ae-mail%253Anandodesouza%40gmail.com&recipient=r-br%40listas.c3sl.ufpr.br" target="_blank" style="background-color: rgb(255, 255, 255); outline: 0px; cursor: text;">E-mail:nandodesouza@gmail.com</a><br>==========================================</signature></div><img class="n1-open" width="0" height="0" style="border:0; width:0; height:0;" src="https://n1.nylas.com/open/9922bcfba636ec544148b48bafb9b99934d423c4be8b040609ca91049a268816?recipient=r-br%40listas.c3sl.ufpr.br">
          <div class="gmail_quote nylas-quote nylas-quote-id-62a615ad394e5e12267b0d11c9fc011d08554353f3303063a14031635e2c369a">
            <br>
            On Ago 9 2017, at 4:48 pm, Yury Duarte via R-br <r-br@listas.c3sl.ufpr.br> wrote:
            <br>
            <blockquote class="gmail_quote"
              style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
              <div dir="ltr"><span style="font-size:12.8px">Boa tarde colegas listeiros!</span><div style="font-size:12.8px"><br /></div><div style="font-size:12.8px">Estou tendo um pequeno problema para salvar as saídas de um loop que fiz para preencher uma matriz com dados de diferentes arquivos. Meus arquivos base possuem informações anuais de produtividade (colunas) de 15 locais (linhas) para um determinado mês. Construí o loop com intenção de gerar um arquivo por local, contemplando as produtividades de cada mês (nas linhas) e de cada ano (nas colunas). Conferi o output do único arquivo salvo pelo script e os valores correspondem ao arranjo desejado, então acredito que a lógica para o preenchimento da matriz esteja correta. Os arquivos para executar a simulação estão em anexo e o script está no corpo do email.</div><div style="font-size:12.8px"><br /></div><div style="font-size:12.8px">Desde já, agradeço pela colaboração de todos!</div><div style="font-size:12.8px"><br /></div><div style="font-size:12.8px"><div>rm(list = ls())</div><div><br /></div><div>raiz = 'C:\\Users\\Yury\\Desktop\\<wbr></wbr>Mestrado\\1_TESE\\Model_Data\\<wbr></wbr>Maize\\PREVISAO\\PA\\' </div><div><br /></div><div>estrategia = c('E1', 'E2', 'E3', 'E4', 'E5')</div><div>meses = c('setembro', 'outubro', 'novembro', 'dezembro', 'janeiro', 'fevereiro', 'marco', 'abril')</div><div>cidade = c("abelardoluz", "altamira", "brasilia", "caarapo", "catalao", "lagarto", "machado", "mateiros",</div><div>           "muitoscapoes", "piracicaba", "pontagrossa", "primaveradoleste", "srmangab", "sdesiderio", "urucui")</div><div>anos = c(1980:2012)</div><div>previsao = matrix(NA, nrow = length(meses), ncol = length(1980:2012))</div><div>colnames(previsao) = 1980:2012</div><div><br /></div><div>#for(e in 1:length(estrategias)){</div><div>  </div><div>  for(m in 1:length(meses)){</div><div>    </div><div>    a = read.table(paste0(raiz, 'E1\\', meses[m],'\\', 'final.txt'), header = T, sep = '\t')</div><div>    for(city in 1:length(cidade)){</div><div>      </div><div>      for(i in 1:length(anos)){</div><div>        </div><div>        previsao[m,i] = a[city,i]</div><div>      }</div><div>    }</div><div>    write.table(previsao, paste0(raiz, 'E1\\', cidade[city],'.txt'), row.names = F, col.names = T, sep = '\t')</div><div>  }</div><div>#}</div><div><br /></div></div><div><div><div dir="ltr"><div>Yury Duarte<br /></div>Engenheiro Agrônomo - ESALQ/USP<br /></div></div></div>
</div>
<pre class="nylas-plaintext">_______________________________________________
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.</pre>
            </blockquote>
          </div>