Cara quando eu executo vários arquivos faço o seguinte <div><br></div><div><br></div><div>a<-dir("diretório dos seus arquivos") # aqui cria um vetor com as strings dos diretórios (nome dos arquivos no seu caso)</div>

<div><br></div><div>tabela<-matrix(NA,2,2)</div><div>resultados<-tabela</div><div><br></div><div>s=0</div><div><br></div><div>e para dar nome para eles do jeito que vc está querendo e criar a variável vc pode pegar o nome </div>

<div><br></div><div>while(s< length(a)){</div><div>s=1+s                                                               # conta +1 na leitura do arquivo</div><div>nome_do_arquivo<-substr(a[s],0,nchar(a[s])-4)      # retira o nome da variável do nome do arquivo (subtrai o .tif)</div>

<div><span style>arquivo<-raster('</span><span style>lai{ano}{diajuliano}.tif')                #carrega seu tif</span></div><div><span style>multiplicado<-arquivo*0.001                               # multiplica por 0.001</span></div>

<div>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á</div><div>}</div><div><br></div><div>s=0</div><div>f=0</div>
<div>
<br></div><div>while(f< length(a)){</div><div>s=s+1</div><div>f=4*s</div><div>g=f-3</div><div>resultados[s,]<-tabela[c(g:f),]</div><div>colnames(resultados)<-cut(seq(ISOdate(2001,1,1),to=ISOdate(2011,12,31),by="month"),"month")</div>

<div>}</div><div><br></div><div><br></div><div>deve funcionar</div><div>qualquer coisa de uma olhada no que as funções fazem</div><div><br></div><div><br></div>