在R中将summary（）导出到TXT

Question

我想将summary（）的内容导出到R中的TXT。这是我到目前为止所获得的，但是首先获得的摘要是一堆数字，然后文件“ output.txt”没有得到任何结果文字。

sink('output.txt', append=TRUE)
a <- character()
for (t1 in (1:8)) {
  for (t2 in (1:8)) {
    linearMod <- lm(x[[1]] ~ x[[2]])
    a <- cbind(a, summary(linearMod))
  }
}
cat()
print(a)
sink()

有关如何解决此问题的任何提示？ 谢谢大家的帮助。