X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=pkg%2FR%2Fmain.R;h=c74d7fbeb8fd32406365acfbd2f47e6a1388225a;hp=85a41b75f17f3ef3a376d61ddf12bab6e692c002;hb=3921ba9b5ea85bcc190245ac7da9ee9da1658b9f;hpb=859c30ec72871f923da0498c14a94e67b0219875

diff --git a/pkg/R/main.R b/pkg/R/main.R
index 85a41b7..c74d7fb 100644
--- a/pkg/R/main.R
+++ b/pkg/R/main.R
@@ -21,6 +21,7 @@
 #' @param size_coll_mod (Maximum) size of a collection of models
 #' @param fast TRUE to use compiled C code, FALSE for R code only
 #' @param verbose TRUE to show some execution traces
+#' @param plot TRUE to plot the selected models after run
 #'
 #' @return a list with estimators of parameters
 #'
@@ -147,7 +148,7 @@ runValse <- function(X, Y, procedure = "LassoMLE", selecMod = "DDSE", gamma = 1,
   modelSel$tableau <- tableauRecap
 
   if (plot)
-    print(plot_valse(X, Y, modelSel, n))
+    print(plot_valse(X, Y, modelSel))
 
   return(modelSel)
 }