ループで順番に結果を書きます。

Question

私は、テストを適用する必要がある単一のファイルの束を持っています。私は、各ファイルの結果を自動的にファイルに書き込む方法を見つける必要があります。ここで私は何をすべきかです：

library(ape) 
stud_files <- list.files("path/dir/data",full.names = T) 
for (f in stud_files) { 
df <- read.table(f, header=TRUE, sep=";") 
df_xts <- as.xts(df$cola, order.by = as.Date(df$colb,"%m/%d/%Y")) 
pet <- testa(df_xts) 
res <- data.frame(estimate = pet$estimate, 
       p.value=pet$p.value, 
       logi = pet$alternative) 
write.dna(res,file = "res_testa.xls",format = "sequential") 
} 

このループは、連続して各ファイルの結果を書き込むことを目指し最後のコマンドを除いて、うまく機能し、それが唯一の最後のパフォーマンスを救いました。結果は、上で定義したテーブル（data.frame）ではなく、文字列として保存されます。この場合、どんな考えですか？事前に感謝

Answer 1

チェックhelp(write.dna)。

write.dna（FALSE =、付加X、ファイル、形式= "インターリーブ"、 nbcol = 6、COLSEP = ""、colw = 10、インデント= NULL、 blocksep = 1）

論理を追加します。TRUEの場合、ファイルにデータが存在しない場合は、 のデータはファイルに追加されません。そうでない場合はファイルが上書きされます（デフォルトはFALSE）。

append = TRUEと設定する必要があります。

しかし、いくつかのコメントが指摘しているように、おそらくテーブルを生成してからすぐにファイルに書き込むほうがよいでしょう。あなたが何十億ものファイルを持っていない限り、おそらくメモリ不足はありません。

これは私がこれにアプローチする方法です。

library(ape) 
library(data.table) 

stud_files <- list.files("path/dir/data",full.names = T) 

sumfunc <- function(f) { 

    df <- read.table(f, header=TRUE, sep=";") 
    df_xts <- as.xts(df$cola, order.by = as.Date(df$colb,"%m/%d/%Y")) 
    pet <- testa(df_xts) 
    res <- data.table(estimate = pet$estimate, 
        p.value=pet$p.value, 
        logi = pet$alternative) 
    return(res) 

} 

lres <- lapply(stud_files, sumfunc) 
dat <- rbindlist(lres) 

write.table(dat, 
      file = "res_testa.csv", 
      sep = ",", 
      quote = FALSE, 
      row.names = FALSE)