r - 如何将打印(i/j)保存到输出文件？

Question

我做了简单的循环并将结果打印出来，但不知道如何输出它。

这是我编码的:

>for (i in 0:45) for (j in 0:45) print(i/j)
[1] Inf
[1] 1
[1] 0.5
[1] 0.3333333
[1] 0.25
[1] 0.2
[1] 0.1666667
[1] 0.1428571
[1] 0.125
[1] 0.1111111
[1] 0.1

从这里开始，我该如何保存这个结果？我应该将 print (i/j) 制作成一个对象还是有其他方法可以将其保存到文件中？
谢谢你，

Answer 1

几个选项，取决于您想要的输出。

1) capture.output()将循环的输出抓取到一个文件中:

capture.output(for (i in 0:45) for (j in 0:45) print(i/j),
               file = "foo.txt")

2) 如果你想要数字，那么保存 i/j通过 save() 作为 R 对象或作为文本文件(例如 csv)通过 write.csv() ，不要打印。

out <- c() ## NEVER write a loop like this! Always allocate storage & fill in
for(i in 0:45)
    for(j in 0:45)
        out <- c(out, i/j)
head(out)
save(out, "foo.rda")
write.csv(out, "foo.csv")

但是，您需要了解 R 中的矢量化操作。在这种情况下，您在 R 中通过两个循环执行的操作类型可以使用以下方法更有效地进行:

out2 <- outer(0:45, 0:45, "/")