r - 抑制打印到屏幕的平稳性测试的输出

Question

我如何获得 stationarity来自 fractal package 的测试在 R 中不将任何输出打印到屏幕上。

例如，使用 shapiro.wilk将结果设置为变量时进行测试，它不会给出任何输出，如下所示

lg.day.ret.vec <- rnorm(100, mean = 5, sd = 3)

shap.p <- shapiro.test(lg.day.ret.vec)$p.value

大多数测试都是这种情况，但是当我为 stationarity 执行此操作时测试我在 r 控制台中得到一些输出。

library(fractal)

stat.p <- attr(stationarity(lg.day.ret.vec),"pvals")[1]
1
2
3
4
5
6
N = 2609, nblock = 11, n_block_max = 238, dt =     1.0000
7
8
9
10
11
12
13
14
15
16
17
18

Answer 1

事实上，您可以通过重新路由来抑制输出到 R 控制台。 R utils 中提供了两种方法，sink , 和 capture.output .这两种方法都旨在将输出发送到文件。

由于要抑制单个表达式的输出，可以使用 capture.output , 与 file=NULL (默认)。这将 返回 您的输出为字符串。为了防止在 R 控制台中显示这个返回的字符串，你可以使用 invisible .

最终代码可以是:

library(fractal)

lg.day.ret.vec <- rnorm(100, mean = 5, sd = 3)
shap.p <- shapiro.test(lg.day.ret.vec)$p.value

invisible(capture.output(
    stat.p <- attr(stationarity(lg.day.ret.vec),"pvals")[1]
))

希望这可以帮助。如果没有，请告诉我。