X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=pkg%2FR%2Fmain.R;h=701a2c93e78262950eec17d3013ee97f2a86ac3d;hp=2ae01e6e8c509f97b06c6ee4232d7c4b86ec7cfa;hb=0e0fb59a6ea0a975d1a9059153aa27f54458bf95;hpb=4c9cc558a39c034ed75d0d5531fa0ce29d8561fc

diff --git a/pkg/R/main.R b/pkg/R/main.R
index 2ae01e6..701a2c9 100644
--- a/pkg/R/main.R
+++ b/pkg/R/main.R
@@ -123,7 +123,7 @@ valse = function(X, Y, procedure='LassoMLE', selecMod='DDSE', gamma=1, mini=10,
 		data.frame(model=paste(i,".",seq_along(models),sep=""),
 			pen=sumPen/n, complexity=sumPen, contrast=LLH)
 	} ) )
-print(tableauRecap)
+
   modSel = capushe::capushe(tableauRecap, n)
   indModSel <-
 		if (selecMod == 'DDSE')