fix few things

[valse.git] / pkg / R / main.R

diff --git a/pkg/R/main.R b/pkg/R/main.R
index 72ee724..6d315cd 100644 (file)
--- a/pkg/R/main.R
+++ b/pkg/R/main.R
@@ -148,7 +148,7 @@ valse = function(X, Y, procedure='LassoMLE', selecMod='DDSE', gamma=1, mini=10,
   modelSel$proba = Gam
   
   if (plot){
-    print(plot_valse(modelSel,n))
+    print(plot_valse(X,Y,modelSel,n))
   }
   
   return(modelSel)