writeLines()不能完全在for循环中工作
我有一个for循环,其中我将结果打印在一个.txt文件中。但是,writeLines()只在一定数量的迭代中起作用。此外,我在执行代码时收到以下警告:关闭未使用的连接writeLines()不能完全在for循环中工作,r,ampl,R,Ampl,我有一个for循环,其中我将结果打印在一个.txt文件中。但是,writeLines()只在一定数量的迭代中起作用。此外,我在执行代码时收到以下警告:关闭未使用的连接 Script <- function(solver=NULL, modelDirectory="/home/fernandafalves/Desktop/Tese/") { library(rAMPL) ampl <- new(AMPL) if (!is.null(solver)) { ampl$setOpt
Script <- function(solver=NULL, modelDirectory="/home/fernandafalves/Desktop/Tese/") {
library(rAMPL)
ampl <- new(AMPL)
if (!is.null(solver)) {
ampl$setOption("solver", solver)
}
ampl$read(paste(modelDirectory, "/Data_Simheuristic_CaseII.txt", sep=""))
for(scenario in 1:1){
for(value in 1:1){
for(variation in 1:3){
fileConn <- file("ResultSimheuristic_CaseII.txt", "a")
...
for(mm in 1:M){
for(l in 1:CARD[[mm]]){
Mean <- Expected_OF_BS[l,mm]
SD <- Standard_Deviation[l,mm]
Min <- Minimum[l,mm]
Max <- Maximum[l,mm]
prob <- signif(1 - pnorm(112,Mean,SD), digits = 3)
writeLines(c(paste("Machine:", mm), paste("Sequence Number:", l), paste("Mean:", Mean), paste("SD:", SD), paste("Minimum value:", Min), paste("Maximum value:", Max), paste("Probability:", prob), "\n"), fileConn)
}
}
close(fileConn)
}
}
}
Script我刚才读过关于writeLines()的奇怪行为的文章。
。这是你的电话号码。
我认为您可以使用带有append=TRUE
参数的函数
write(line, file = "filename", append=TRUE)
写入函数导致了相同的问题。并非所有行都打印在.txt文件中。