Fix github issue #118 : no graphical output after random forest run

Author: gdurif

R-pkg/R/82_random_forest_tools.R

@@ -234,13 +234,13 @@ abcranger_postprocess <- function(
     if(run_mode == "param_estim") {
         # parameter estimation
         if(!is.null(param)) {
-            param_estim_graph_ouptut(proj_dir, graph_dir, param, prefix)
+            param_estim_graph_ouptut(proj_dir, proj_dir, param, prefix)
         }
         # move file to subproject directory
         abcranger_subdir(proj_dir, sub_proj_name, prefix)
     } else if(run_mode == "model_choice") {
         # model choice
-        model_choice_graph_ouptut(proj_dir, graph_dir, prefix)
+        model_choice_graph_ouptut(proj_dir, proj_dir, prefix)
         # move file to subproject directory
         abcranger_subdir(proj_dir, sub_proj_name, prefix)
     }