如何將多個摘要（lm）保存到文件中？

Question

我想將多個摘要（lm）保存為 txt 文件。 我在 function 下面嘗試，它適用於 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

我對 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()
}

Answer 2

關於什么：

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()