R如何將不同類型的變量打印到一個txt文件中

Question

我有一個lm模型，一個vif函數的數值向量和一些字符變量。

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

我想將所有內容打印到一個txt文件中。 我嘗試過cat和capture.output 。

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

顯然這沒有用。 任何人如何將它們打印到單個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")