keep running infos

lib/diffsel.ml

@@ -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`

lib/scripts/diffselMCMCConvergenceAnalysis.Rmd

@@ -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 {