Skip to content
Snippets Groups Projects
Commit d335f074 authored by Mauricio Zambrano-Bigiarini's avatar Mauricio Zambrano-Bigiarini
Browse files

hydroPSO.R: fixed writing of 'PSO~_logfile.txt'

parent 5c960395
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 5 additions and 5 deletions
R/PSO_v2012.R
+ 5
− 5
View file @ d335f074
...@@ -2086,13 +2086,13 @@ hydroPSO <- function( ...@@ -2086,13 +2086,13 @@ hydroPSO <- function(
writeLines("", PSOparam.TextFile) writeLines("", PSOparam.TextFile)
} # IF end } # IF end
writeLines(c("Topology :", topology), PSOparam.TextFile, sep=" ") writeLines(c("Topology :", topology), PSOparam.TextFile, sep=" ")
writeLines("", PSOparam.TextFile)
if ( (topology == "lbest") | (topology == "random") ) { if ( (topology == "lbest") | (topology == "random") ) {
writeLines(c("K :", K), PSOparam.TextFile, sep=" ") writeLines(c("K :", K), PSOparam.TextFile, sep=" ")
writeLines("", PSOparam.TextFile) writeLines("", PSOparam.TextFile)
writeLines(c("iter.ini :", iter.ini), PSOparam.TextFile, sep=" ") writeLines(c("iter.ini :", iter.ini), PSOparam.TextFile, sep=" ")
writeLines("", PSOparam.TextFile) writeLines("", PSOparam.TextFile)
} # IF end } # IF end
writeLines("", PSOparam.TextFile)
writeLines(c("Boundary wall :", boundary.wall), PSOparam.TextFile, sep=" ") writeLines(c("Boundary wall :", boundary.wall), PSOparam.TextFile, sep=" ")
writeLines("", PSOparam.TextFile) writeLines("", PSOparam.TextFile)
writeLines(c("Best update method:", best.update), PSOparam.TextFile, sep=" ") writeLines(c("Best update method:", best.update), PSOparam.TextFile, sep=" ")
...@@ -2154,14 +2154,14 @@ hydroPSO <- function( ...@@ -2154,14 +2154,14 @@ hydroPSO <- function(
writeLines(c("lambda :", lambda), PSOparam.TextFile, sep=" ") writeLines(c("lambda :", lambda), PSOparam.TextFile, sep=" ")
writeLines("", PSOparam.TextFile) writeLines("", PSOparam.TextFile)
} # ELSE end } # ELSE end
writeLines(c("use.RG :", use.RG), PSOparam.TextFile, sep=" ") writeLines(c("use.RG :", use.RG), PSOparam.TextFile, sep=" ")
writeLines("", PSOparam.TextFile) writeLines("", PSOparam.TextFile)
if (use.RG) { if (use.RG) {
writeLines(c("RG.thr :", RG.thr), PSOparam.TextFile, sep=" ") writeLines(c("RG.thr :", RG.thr), PSOparam.TextFile, sep=" ")
writeLines("", PSOparam.TextFile) writeLines("", PSOparam.TextFile)
writeLines(c("RG.r :", RG.r), PSOparam.TextFile, sep=" ") writeLines(c("RG.r :", RG.r), PSOparam.TextFile, sep=" ")
writeLines("", PSOparam.TextFile) writeLines("", PSOparam.TextFile)
writeLines(c("RG.miniter :", RG.miniter), PSOparam.TextFile, sep=" ") writeLines(c("RG.miniter :", RG.miniter), PSOparam.TextFile, sep=" ")
writeLines("", PSOparam.TextFile) writeLines("", PSOparam.TextFile)
} # IF end } # IF end
writeLines(c("maxfn :", maxfn), PSOparam.TextFile, sep=" ") writeLines(c("maxfn :", maxfn), PSOparam.TextFile, sep=" ")
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment