From 0e0fb59a6ea0a975d1a9059153aa27f54458bf95 Mon Sep 17 00:00:00 2001 From: Benjamin Auder <benjamin.auder@somewhere> Date: Wed, 12 Apr 2017 01:00:38 +0200 Subject: [PATCH] remove extra prints --- pkg/R/constructionModelesLassoMLE.R | 1 - pkg/R/main.R | 2 +- 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/pkg/R/constructionModelesLassoMLE.R b/pkg/R/constructionModelesLassoMLE.R index dbae65d..b251135 100644 --- a/pkg/R/constructionModelesLassoMLE.R +++ b/pkg/R/constructionModelesLassoMLE.R @@ -57,7 +57,6 @@ constructionModelesLassoMLE = function(phiInit, rhoInit, piInit, gamInit, mini, for (r in 1:k) { delta = (Y%*%rhoLambda[,,r] - (X[, col.sel]%*%phiLambda[col.sel,,r]))/artefact - print(max(delta)) densite = densite + piLambda[r] * det(rhoLambda[,,r])/(sqrt(2*base::pi))^m * exp(-tcrossprod(delta)/2.0) } 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') -- 2.44.0