<div>
<div><span style="font-size: small; color: #0000ff;">Tentei rodar, mas no fim dá este erro:</span></div>
<div> </div>
<div>Error in file(file, "rt") : não é possível abrir a conexão</div>
<div>Além disso: Warning message:</div>
<div>In file(file, "rt") :</div>
<div>  não foi possível abrir o arquivo 'C:\Users\Mauro\Documentos\entrada\abelardoluz.txt': No such file or directory</div>
</div>
<div> </div>
<div> </div>
<div dir="ltr">Olá Felipe, obrigado pela dica. Mas acredito que meu problema seja um pouco diferente do que foi explanado no seu email. Consegui fazer com que os arquivos fossem abertos, lidos e salvos num local diferente (a pesar de ter feito isso num formato que funciona apenas para a minha situação, já que preciso declarar o nome de cada arquivo dentro do diretório "entrada"). Irei colar meu script no corpo pra facilitar a abordagem da minha dúvida. 
<div> </div>
<div>
<div>#Diretório  raiz</div>
<div>rootDir <- 'C:\\Users\\user\\Desktop\\'</div>
<div>#Diretório da base de dados observados a ser lida</div>
<div>dataDir <- paste(rootDir,'entrada\\',sep='')</div>
<div>#Diretório onde escreverá os arquivos </div>
<div>outputloc <- paste(rootDir,'saida\\',sep='')</div>
<div> </div>
<div>#nomes dos arquivos no diretorio (sem a extensao)</div>
<div>cidades = c("abelardoluz","aguaclara")</div>
<div> </div>
<div>#vetor de latitudes, escritas na ordem correspondente as cidades acima</div>
<div>lat = c(-30, 0)</div>
<div> </div>
<div>for (i in cidades){</div>
<div>  </div>
<div>  estacao = i</div>
<div>  a = read.table(paste(dataDir,estacao,'.txt',sep=''), sep = ";", header = T); str(a)</div>
<div> </div>
<div>  #--------------------Separar colunas de interesse--------------------#</div>
<div>  a$DATE = as.Date(levels(a$DATE))[a$DATE]; str(a)</div>
<div>  a$DiaJuliano = format(a$DATE, trim = T, '%j') ; a$DiaJuliano</div>
<div>  a$DiaJuliano = as.numeric(format(a$DATE, trim = T, '%j')); str(a$DiaJuliano) </div>
<div> </div>
<div>  #--------------------Calculo das Variaves Astronomicas--------------------#</div>
<div>  head(a)</div>
<div>  corr = pi/180</div>
<div>  a$decl = 23.45*sin(corr*((a$DiaJuliano-80)*360/365)); a$decl</div>
<div> </div>
<div>#----Aqui esta o problema----#</div>
<div>    a$hn = 1/corr*acos(-tan(corr*<strong>lat[(as.numeric(length(i)))]</strong>)*tan(corr*a$decl))</div>
<div>    a$N = 2*a$hn/15</div>
<div>    head(a)</div>
<div>  </div>
<div>  write.table(a,file=paste(outputloc,i,'.txt',sep=''),col.names=T, row.names=F, sep="\t")</div>
<div> }</div>
</div>
<div>#--FIM DO SCRIPT--#</div>
<div> </div>
<div>Minha dificuldade está em utilizar apenas a latitude correspondente a cidade que estou abrindo no meu for().</div>
<div>Percebi que usando o comando length() sempre irei utilizar a ultima latitude do objeto "lat". As vezes que inseri um for() para ler as latitudes, cada cidade correu todas as lat informadas e também salvou apenas a última. Assim, minha intensão é conseguir fazer com que cada cidade utilize apenas a latitude correspondente do objeto lat.</div>
<div> </div>
<div>Mais uma vez, agradeço pela colaboração de todos!</div>
<div> </div>
<div class="gmail_extra">
<div>
<div class="gmail_signature" data-smartmail="gmail_signature">
<div dir="ltr">
<div>Yury Duarte</div>
Engenheiro Agrônomo - ESALQ/USP</div>
</div>
</div>
<br />
<div class="gmail_quote">Em 17 de novembro de 2016 10:24, Felipe <span dir="ltr"><<a href="../../../undefined//compose?to=felipe.e.barletta@gmail.com" target="_blank">felipe.e.barletta@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><br /> Yuri, pode ler e carregar vários arquivos da seguinte maneira (e criar diretório):<br /> (Não testei com seus dados)<br /> <br /> <br /> ### Indica diretório que vai trabalhar<br /> setwd('~/caminho/')<br /> <br /> # lista todos os arquivos com extensão .csv<br /> input <- dir(pattern='.txt')<br /> L <- length(input)<br /> <br /> ### Lendo arquivos e salvando em uma lista<br /> dados <- NULL<br /> for (i in 1:L){<br />     dados[[i]] <- read.table(input[i],h=T)<br />     cat(input[i],'\n')<br /> }<br /> <br /> <br /> agora é só fazer os cálculos que deseja e depois pode crira um diretório para salvar<br /> <br /> ### Cria diretório<br /> <span class="m_7682067863089954569aesltt-10x-x-120">dir.create('~/caminho/')</span><br /> <br /> <br />--
<pre class="m_7682067863089954569moz-signature">Atenciosamente,


================================== 
Felipe E. Barletta Mendes
Estatístico(UFPR) - Conre3 9766-A
Mestrando em Bioestatística(UEM)
<a href="tel:%2B55%20%2841%29-92077191" target="_blank">+55 (41)-92077191</a>
<a href="tel:%2B55%20%2841%29-33287216" target="_blank">+55 (41)-33287216</a>
===================================</pre>
</div>
</blockquote>
</div>
</div>
</div>
<div>_______________________________________________<br />R-br mailing list<br />R-br@listas.c3sl.ufpr.br<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.</div>