将数值数据保存到文件中

Question

我正在生成大量数据，并且希望在我的运行过程中仅存储选定的值。但它总是保存最后的结果。例如，在下面的示例代码中，它总是存储满足条件的最后结果。请记住，我有大量数据，不想存储在矢量或列表中，但希望立即存储在文件中。我需要你的帮助。

谢谢。

f<-function(x) (x-1)*(x-5)*(x-10) 

fileE<-file("E.txt") 
for (i in seq(1,100,0.1)){ 
    if (f(i) > 0 && f(i) < 10) 
     writeLines(paste0(i," ",f(i)), fileE) 
} 
close(fileE) 

Answer 1

也许使用write与追加：

unlink("E.txt") 

for (i in seq(1, 100, 0.1)){ 
    res <- f(i) 
    if (res > 0 & res < 10) 
    write(x = paste0(i, " ", res), file = "E.txt", append = TRUE) 
    }