<html>
  <head>
    <meta content="text/html; charset=utf-8" http-equiv="Content-Type">
  </head>
  <body 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="aesltt-10x-x-120">dir.create('~/caminho/')</span><br>
    <br>
    <br>
    --
    <pre class="moz-signature" cols="72">Atenciosamente,


================================== 
Felipe E. Barletta Mendes
Estatístico(UFPR) - Conre3 9766-A
Mestrando em Bioestatística(UEM)
+55 (41)-92077191
+55 (41)-33287216
===================================</pre>
  </body>
</html>