将不等输出保存到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)

其中，Heter是一个列表(即，is.list(Heter)返回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")的操作