<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><br></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><br></div><div>#nomes dos arquivos no diretorio (sem a extensao)</div><div>cidades = c("abelardoluz","aguaclara")</div><div><br></div><div>#vetor de latitudes, escritas na ordem correspondente as cidades acima</div><div>lat = c(-30, 0)</div><div><br></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><br></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><br></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----#<br></div><div>    a$hn = 1/corr*acos(-tan(corr*<b>lat[(as.numeric(length(i)))]</b>)*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><br></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><br></div><div>Mais uma vez, agradeço pela colaboração de todos!</div><div><br></div><div class="gmail_extra"><div><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div>Yury Duarte<br></div>Engenheiro Agrônomo - ESALQ/USP<br></div></div></div>
<br><div class="gmail_quote">Em 17 de novembro de 2016 10:24, Felipe <span dir="ltr"><<a href="mailto: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 bgcolor="#FFFFFF" text="#000000">
    <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" cols="72">Atenciosamente,


==============================<wbr>==== 
Felipe E. Barletta Mendes
Estatístico(UFPR) - Conre3 9766-A
Mestrando em Bioestatística(UEM)
<a href="tel:%2B55%20%2841%29-92077191" value="+554192077191" target="_blank">+55 (41)-92077191</a>
<a href="tel:%2B55%20%2841%29-33287216" value="+554133287216" target="_blank">+55 (41)-33287216</a>
==============================<wbr>=====</pre>
  </div>

</blockquote></div><br></div></div>