[R-br] Loop varrendo quantidade enorme de arquivos

[Tito Conte]

Cara quando eu executo vários arquivos faço o seguinte


a<-dir("diretório dos seus arquivos") # aqui cria um vetor com as strings
dos diretórios (nome dos arquivos no seu caso)

tabela<-matrix(NA,2,2)
resultados<-tabela

s=0

e para dar nome para eles do jeito que vc está querendo e criar a variável
vc pode pegar o nome

while(s< length(a)){
s=1+s                                                               # conta
+1 na leitura do arquivo
nome_do_arquivo<-substr(a[s],0,nchar(a[s])-4)      # retira o nome da
variável do nome do arquivo (subtrai o .tif)
arquivo<-raster('lai{ano}{diajuliano}.tif')                #carrega seu tif
multiplicado<-arquivo*0.001                               # multiplica por
0.001
tabela[s,]<-assing(nome_do_arquivo,multiplicado) # atribui o resultado da
multiplicação a vaiavel gerada e armazena em uma tabela na linha escolhida
lá
}

s=0
f=0

while(f< length(a)){
s=s+1
f=4*s
g=f-3
resultados[s,]<-tabela[c(g:f),]
colnames(resultados)<-cut(seq(ISOdate(2001,1,1),to=ISOdate(2011,12,31),by="month"),"month")
}


deve funcionar
qualquer coisa de uma olhada no que as funções fazem
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20120502/28c9a2b8/attachment.html>