如何使用R在文件中获得名为shapiro.test()的函数的输出

Question

假设您有药物前后的数据。测试是否因药物而存在显著差异。

>set.seed(10)
>before = rnorm(100)
>set.seed(20)
>after = rnorm(100, mean = 2)
>d = after - before
>shapiro.test(d)

此函数"shapiro.test(d("将打印此输出：

Shapiro-Wilk normality test
data: d
W = 0.98326, p-value = 0.2363

现在，如何在文件中打印此输出？有没有一个函数可以做到这一点？

Answer 1

我们可以捕获输出并使用cat将其写入文本文件。

cat(paste0(capture.output(shapiro.test(d)),collapse = 'n'), file = 'result.txt')