R как печатать переменные разных типов в один текстовый файл

Question

У меня есть модель lm, числовой вектор из функции vif и некоторые символьные переменные.

gvmodel<-gvlma(lmFit)
VIF<-sqrt(vif(lmFit))
Str1<-"Original R-square=".567"
Str2<-"Cross-validated R-Square=.123"

Я хотел бы напечатать содержимое всего в один текстовый файл. Я пробовал cat и capture.output.

cat(gvmodel,VIF,Str1, file="E:/.../text.txt")
capture.output(paste(gvmodel,VIF,...,sep=""),file="E:/.../text.txt")

Очевидно, это не сработало. Кто-нибудь, как распечатать их в один текстовый файл? Спасибо

Answer 1

Sink() работает. Укажите путь и имя txt-файла, запустите любую команду, которая выводит текст, и они будут записаны в txt-файл. И наконец sink() закрыть.

 sink("E:/.../Sink.txt")
 gvmodel
 sqrt(vif(ModeName))
 sink()

Answer 2

В вашем коде gvmodel<-gvlma(lmFit) выдает gvlma объект.Он не может быть напрямую распечатан в файл .txt как таковой.Вы можете сначала преобразовать его в символы, используя параметр as.character():

gvmodel<-gvlma(lmFit)
gvmodel <- as.character(gvmodel)

Результат можно распечатать, например, с помощью cat.Итак, если вы сложите все это вместе:

gvmodel<-gvlma(lmFit)
gvmodel <- as.character(gvmodel)
VIF<-sqrt(vif(lmFit))
Str1<-"Original R-square=.567"
Str2<-"Cross-validated R-Square=.123" # NB the corrected quotation marks

cat(gvmodel,VIF,Str1, file="yourfile.txt",sep="\t")