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

之类的操作

将不等输出保存到csv或txt文件

2 个答案: