関数内で要約lmer保存

Question

私は次の関数を書いた：

filename <- list.files(path = "path", pattern = ".csv", full.names = TRUE) 

analyze <- function(filename) { 
    dat <- read.csv(file = filename, header = TRUE) 
    twolevel <- lmer(DV ~ 1 + (1 | item), data = dat, REML = FALSE) 
    output <- summary(twolevel) 
    sink("output.txt") 
    for (i in 1:73) print(output) 
    sink() 
} 

for (f in filename) { 
    analyze(f) 
} 

ファイル名は、73枚のデータフレームのリストが含まれています。残念ながら、私は73の分析のそれぞれの要約は得られませんが、73回の同じ結果が得られます。私のコードで何が間違っていますか？ありがとう!!

Answer 1

@Laterowと@nyaで説明したように、あなたへの変更が機能 - その後、

analyze <- function(filename) { 
    dat <- read.csv(file = filename, header = TRUE) 
    twolevel <- lmer(DV ~ 1 + (1 | item), data = dat, REML = FALSE) 
    sink("output.txt",append = TRUE) 
    return(summary(twolevel)) 
} 

そしてラインで、あなたのコード行を実行してみて、中に何が起こるか見

for (f in filename) { 
    analyze(f) 
}