Как сохранить несколько резюме (лм) в файл / файлы?

Question

Я хотел бы сохранить несколько резюме (лм) в виде текстовых файлов. Я пробовал функцию ниже, она работает хорошо для counter = 1,2,3, но она не работает для цикла - есть пустые файлы.

Есть ли у вас какие-либо предложения?

output_folder<-c("C:/temp/")
for(counter in 1:3){ #for loop it saves empty files
#counter<-2
x<-rnorm(100,0,1)
y<-rnorm(100,0,2)

lm.model<-lm(x~y)

sink(file=paste(output_folder, "RegressionSummary_", counter,".txt", sep = ""))
summary(lm.model)
sink()
}

Answer 1

А как же:

output_folder<-c("C:/temp/")
summaries    <- c()
for(counter in 1:3){ #for loop it saves empty files
  #counter<-2
  x<-rnorm(100,0,1)
  y<-rnorm(100,0,2)

  lm.model.sum <-summary(lm(x~y))

  summaries[counter] <- paste(capture.output(lm.model.sum), sep = '\n', collapse = '\n')
}


sink(file=paste(output_folder, "RegressionSummary_", counter,".txt", sep = ""))
summaries
sink()

Answer 2

Я не знаю достаточно о внутренностях R, чтобы сказать, зачем вам это нужно, но если вы оберните вызов summary вызовом print, ваш код сработает:

output_folder<-c("C:/temp/")
for(counter in 1:3){ #for loop it saves empty files
#counter<-2
x<-rnorm(100,0,1)
y<-rnorm(100,0,2)

lm.model<-lm(x~y)

sink(file=paste(output_folder, "RegressionSummary_", counter,".txt", sep = ""))
print(summary(lm.model))
sink()
}