0

我有一个源代码,想将结果输出到一个 txt 文件。我设法使用 sink() 函数来做到这一点,如下所示:

    source("Script sink test.txt", echo=F)
    loopsinktestA <- file("SinktestA.txt")
    sink(loopsinktestA, append=TRUE)
    sink(loopsinktestA, append=TRUE, type="output")
    Loop(MMatrix, "Parameter1", "Parameter2")
    sink()

除了一个细节外,一切都很好。在我的函数输出中,有一些矩阵往往很大。当我将结果显示在控制台上时,矩阵往往会根据屏幕上的空间打破,这是很正常的(如果我有更大的空间,通过将帮助/图表推到最右边,更多的列会出现在矩阵被破坏之前)。我的问题是,完全相同的事情发生在SinktestA.txt,基本上,它反映了控制台中的预期(我尝试了不同的导出并在控制台中提供越来越少的空间,并且输出文件中的结果破坏了矩阵列数更小或更大)。

例如,由于矩阵没有并排拟合所有列,因此它在输出中的显示方式如下:

          Fi         M      Pi
    As   16.06343  32.42949 0.00000
    Ce   59.48432  39.78937 0.01211
    Ri    0.01211   0.01211 0.00000
    Ast 100.00000 100.00000 0.00000
    Ts   25.11802  45.56349 0.00000
    At    0.00000   0.00000 0.00000
    Dm    7.17831  28.16850 0.00000

          M        Pi
    As   0.00000  99.98789
    Ce   0.00000  99.98789
    Ri  99.98789 100.00000
    Ast  0.00000 100.00000
    Ts   0.00000  99.98789
    At   0.00000  99.98789
    Dm   0.00000  99.98789

注意:我实际上有更多列,但例如,考虑到我在控制台上的空间只显示 4 列,之后必须打破矩阵。

我的问题是,有没有一种方法或参数可以用来指示在输出中的矩阵被破坏之前要使用的字符数或其他东西?或者一种指示输出的方法应该反映输出结果但不完全是它的格式?

抱歉,如果在任何时候都不清楚。

4

0 回答 0