<div dir="ltr">Entendi Augusto, vou implementar! Muito Obrigado<br></div><div class="gmail_extra"><br><div class="gmail_quote">Em 8 de junho de 2015 11:14, Augusto Ribas <span dir="ltr"><<a href="mailto:ribas.aca@gmail.com" target="_blank">ribas.aca@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Algo assim:<br><div><br></div><div>#Ve o nome dos arquivos da pasta, use getwd e setwd se precisar mudar de pasta<br></div><div>arquivos<-list.files()<br><br></div><div>#pegue os arquivos que são .dat<br></div><div>indices<-grep(".dat",arquivos)<br>arquivos[indices]<br><br></div><div>#separe um vetor com eles, podemos reutilizar o vetor aqui<br></div><div>arquivos<-arquivos[indices]<br><br></div><div>#Ai você usa alguma estrutura de repetição, um loop por exemplo, para processar um por um<br></div><div>for(i in 1:length(arquivos)) {<br> print(paste("Lendo",arquivos[i]))<br> #Seu codigo aqui<br>}<br><br></div><div>#ai insira seu código ali, fazendo as operações que tem que fazer, e juntando os arquivos, salvando, o que for necessário.<br></div></div><div class="HOEnZb"><div class="h5"><div class="gmail_extra"><br><div class="gmail_quote">Em 8 de junho de 2015 10:06, joão Rodrigo Castro <span dir="ltr"><<a href="mailto:joaorodrigo2005@gmail.com" target="_blank">joaorodrigo2005@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div><div><div>Obrigado Augusto, vou dar uma olhada nas funções que vc citou.<br><br></div>Um trecho do código:<br># Passo A<br>Teste_SF = read.table("<b>dado1</b>.dat", dec=".",h=T ,col.names = c( "ano", "mes", "jday","Rad","Tmax", "Tmin","stopo","trans","dt","lat","lon"))<br>Teste = subset(Teste_SF, trans<0.81 & Rad>1)<br>summary(Teste)<br><br># Passo B<br>dr = 1 + 0.033 * cos(0.0172*Teste$jday)<br>declin = 0.409 * sin(0.0172*Teste$jday - 1.39)<br>omega = acos(-tan(Teste$lat*pi/180) * tan(declin))<br>Teste$Rad_Pot = 37.6*dr*(omega*sin(declin)*sin(Teste$lat*pi/180) + cos(declin)*cos(Teste$lat*pi/180)*sin(omega))<br><br></div>Há ainda outros passos onde os atributos dos arquivos são lidos e posteriormente utilizados em outros cálculos. No final é gerado um arquivo de saída com o write.table com os resultados obtidos.<br><br></div><div>Então como são 38 arquivos (dado1.dat, dado2.dat, etc ..... ) a utilização de alguma função que permita a leitura de todos os arquivos, e depois fazer um loop pelos arquivos, tornaria mais dinâmica a tarefa. <br></div><div><br></div><div>Obrigado pelas dicas!<span><font color="#888888"><br></font></span></div><span><font color="#888888"><div>João<br></div><div><br><br></div></font></span></div><div><div><div class="gmail_extra"><br><div class="gmail_quote">Em 8 de junho de 2015 10:42, Augusto Ribas <span dir="ltr"><<a href="mailto:ribas.aca@gmail.com" target="_blank">ribas.aca@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div><div>Não entendi exatamente o problema, mas os arquivos estão em um determinado diretorio?<br></div>Não daria para dar um list.files() para pegar a lista de arquivos dos diretorio, usar um grep() para selecionar os arquivos que quer ler e então em um loop ir ler os arquivos com read.table, ai você pode ir dando merge ou concatenando eles.<br><br></div>Da um exemplo de código como você está fazendo, talvez alguém tenha uma ideia melhor.<br></div><div class="gmail_extra"><br><div class="gmail_quote"><div><div>Em 8 de junho de 2015 08:45, joão Rodrigo Castro <span dir="ltr"><<a href="mailto:joaorodrigo2005@gmail.com" target="_blank">joaorodrigo2005@gmail.com</a>></span> escreveu:<br></div></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div><div dir="ltr"><div>Pessoal,<br><br><br></div><div>Tenho utilizado o read.table para ler arquivos e realizar tarefas simples. Contudo, agora necessito rodar 6 programas para 38 localidades distintas e tenho feito isso ponto a ponto, para cada um dos modelos... Já rodei os programas uma vez dessa maneira trabalhosa e agora pretendo automatizar o processo lendo todos os 38 arquivos de uma só vez e rodar cada um dos modelos para os 38 arquivos (um modelo por vez).<br><br></div><div>Minha pergunta é: há alguma função para leitura de vários arquivos juntos ?<br></div><div><br></div><div><div>Por favor, se não ficar claro posso tentar explicar melhor! <br></div><div>abs<span><font color="#888888"><br></font></span></div><span><font color="#888888"><div>-- <br><div><div dir="ltr"><div><div dir="ltr"><font color="#666666">João Rodrigo de Castro</font><div><font color="#666666">Programa de Pós-Graduação em Meteorologia</font></div><div><font color="#666666">Bolsista Laboratório de Agrometeorologia - Embrapa Clima Temperado</font></div><div><font color="#666666">Universidade Federal de Pelotas</font></div></div></div></div></div>
</div></font></span></div></div>
<br></div></div>_______________________________________________<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/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-guia</a>) e forneça código mínimo reproduzível.<span><font color="#888888"><br></font></span></blockquote></div><span><font color="#888888"><br><br clear="all"><br>-- <br><div><div dir="ltr"><div>Grato<br>Augusto C. A. Ribas</div>
<div> </div>
<div>Site Pessoal: <a href="http://recologia.com.br/" target="_blank">http://recologia.com.br/</a><a href="http://augustoribas.heliohost.org" target="_blank"></a></div><div>Github: <a href="https://github.com/Squiercg" target="_blank">https://github.com/Squiercg</a></div>
<div>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br></div></div></div>
</font></span></div>
<br>_______________________________________________<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/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-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><br>-- <br><div><div dir="ltr"><div><div dir="ltr"><font color="#666666">João Rodrigo de Castro</font><div><font color="#666666">Programa de Pós-Graduação em Meteorologia</font></div><div><font color="#666666">Bolsista Laboratório de Agrometeorologia - Embrapa Clima Temperado</font></div><div><font color="#666666">Universidade Federal de Pelotas</font></div></div></div></div></div>
</div>
</div></div><br>_______________________________________________<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/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-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><br>-- <br><div><div dir="ltr"><div>Grato<br>Augusto C. A. Ribas</div>
<div> </div>
<div>Site Pessoal: <a href="http://recologia.com.br/" target="_blank">http://recologia.com.br/</a><a href="http://augustoribas.heliohost.org" target="_blank"></a></div><div>Github: <a href="https://github.com/Squiercg" target="_blank">https://github.com/Squiercg</a></div>
<div>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br></div></div></div>
</div>
</div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">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/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-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><br>-- <br><div class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><font color="#666666">João Rodrigo de Castro</font><div><font color="#666666">Programa de Pós-Graduação em Meteorologia</font></div><div><font color="#666666">Bolsista Laboratório de Agrometeorologia - Embrapa Clima Temperado</font></div><div><font color="#666666">Universidade Federal de Pelotas</font></div></div></div></div></div>
</div>