使用foreach函数时，将拟合函数的摘要导出到文本文件

Question

我想将每个foreach并行循环的fit函数摘要导出到文本文件。

我正在使用 doParallel包中的 foreach函数（ R ）。

到现在为止，我无法做到。

我在foreach循环中尝试了以下代码，但它也不适用于正常的for循环：

sink(file=paste("summary_",i,".txt",sep="")) 
summary(fit_model) 
sink(NULL)

我该怎么做？

Answer 1

尝试将其打印为接收器：

for(x in 1:3){
  sinkFile <- paste0("sink_",x,".txt")
  sink(sinkFile)
  print(summary(glm(rep(x,10)~c(1:10))))
  sink()
}