Commit 172cee79 authored by Carine Rey's avatar Carine Rey
Browse files

keep running infos

parent 3d7a93df
......@@ -28,12 +28,14 @@ let diffsel_add_iterations_script ~chainname =
set -e
continue=true
i=0
while $continue
do
i=$((i+1))
echo i=$i
# check convergence
Rscript -e "rmarkdown::render(\"DiffselMCMCConvergenceAnalysis.Rmd\", params=list(set_trace1=\"../dest/myrun.trace\"))"
Rscript -e "rmarkdown::render(\"DiffselMCMCConvergenceAnalysis.Rmd\", params=list(set_trace1=\"../dest/myrun.trace\"),output_file=\"../dest/output_"$i".html\")"
new_max=`tail -n 1 new_iterations.txt | cut -f 1`
continue=`tail -n 1 new_iterations.txt | cut -f 2`
end_it=`tail -n 1 new_iterations.txt | cut -f 3`
......
......@@ -83,7 +83,7 @@ new_iterations_str=paste(as.character(next_step_its), new_iterations_bool_str, r
if (new_iterations_bool_str) {
write(new_iterations_str, "new_iterations.txt", append=T)
} else {
write(paste("Burnin:", str(required_it)) , "new_iterations.txt", append=T)
write(paste("Burnin:", required_it) , "new_iterations.txt", append=T)
}
```
......@@ -91,13 +91,13 @@ write(paste("Burnin:", str(required_it)) , "new_iterations.txt", append=T)
if (new_iterations_bool_str) {
cat(run_it)
cat(" iterations were already run.")
print("")
cat("\n")
cat(required_it)
cat(" iterations are needed.")
print("")
cat("\n")
cat(new_iterations)
cat(" additionnal iterations must be run.")
print("")
cat("\n")
cat(next_step_its)
cat(" additionnal iterations will be run.")
} else {
......
Markdown is supported
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