将不相等的输出保存为csv或txt文件

Question

我想将以下输出保存在R控制台中，并保存为csv或txt文件。

Discordancy measures (critical value 3.00) 
0.17 3.40 1.38 0.90 1.62 0.13 0.15 1.69 0.34 0.39 0.36 0.68 0.39 
0.54 0.70 0.70 0.79 2.08 1.14 1.23 0.60 2.00 1.81 0.77 0.35 0.15 
1.55 0.78 2.87 0.34 

Heterogeneity measures (based on 100 simulations) 
30.86 14.23 3.75 
Goodness-of-fit measures (based on 100 simulations) 
glo gev gno pe3 gpa 
-3.72 -12.81 -19.80 -32.06 -37.66 

这是结果我得到的，当我运行以下

Heter<-regtst(regsamlmu(-extremes), nsim=100) 

其中海特是一个列表（即is.list（海特）返回TRUE）

Answer 1

你可以使用capture.output ：

capture.output(regtst(regsamlmu(-extremes), nsim=100), file="myoutput.txt") 

或者用于捕获来自几个结果命令的输出：

sink("myfile.txt") 
# 
# [commands generating desired output] 
# 
sink() 

Answer 2

您可以制作一个字符向量，然后写入文件。向量中的每个条目将被换行符分隔。

out <- capture.output(regtst(regsamlmu(-extremes), nsim=100)) 
write(out, "output.txt", sep="\n") 

如果你想添加更多的线路只是像做c(out, "hello Kostas")