Экспорт резюме () в TXT в R

Question

Я бы хотел экспортировать содержимое summary () в TXT в R. Это то, что я получил до сих пор, но сначала полученная сводка представляет собой набор чисел, а затем файл '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()

Есть подсказка, как решить проблему?Спасибо всем за помощь.