R如何将不同类型的变量打印到一个txt文件中

Question

I have a lm model, a numeric vector from vif function, and some character variables.

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

I would like to print content of all into one single txt file. I tried cat and capture.output .

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

Obviously this did not work. Anyone how to print them into a single txt file? Thanks

Answer 1

Sink() works. Sink a txt file path and name, run any command that produces text outputs and they will be captured in the txt file. And finally sink() to close.

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

Answer 2

In your code gvmodel<-gvlma(lmFit) produces gvlma object. It cannot be directly printed to .txt file as such. You can transform it first to characters using as.character() option:

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

The result is printable for example with cat . So if you put all this together:

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