X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=pkg%2FR%2FconstructionModelesLassoMLE.R;h=16f58b62c237ca5ea0412fb36a0906ce85c3697c;hb=43f9cdc196c73bf1074924d4921445d63e89a2f4;hp=75ae679f63c4678530664682c2ecf56a18bd2365;hpb=9cb34faffaa6fcb78eb8ae3bdb70fb5147d73466;p=valse.git

diff --git a/pkg/R/constructionModelesLassoMLE.R b/pkg/R/constructionModelesLassoMLE.R
index 75ae679..16f58b6 100644
--- a/pkg/R/constructionModelesLassoMLE.R
+++ b/pkg/R/constructionModelesLassoMLE.R
@@ -77,11 +77,10 @@ constructionModelesLassoMLE <- function(phiInit, rhoInit, piInit, gamInit, mini,
       
       logGam <- logGam - max(logGam) #adjust without changing proportions
       gam <- exp(logGam)
-      print(gam)
       norm_fact <- sum(gam)
       sumLogLLH <- sumLogLLH + log(norm_fact) - log((2 * base::pi)^(m/2))
     }
-    llhLambda <- c(sumLogLLH/n, (dimension + m + 1) * k - 1)
+    llhLambda <- c(-sumLogLLH/n, (dimension + m + 1) * k - 1)
     list(phi = phiLambda, rho = rhoLambda, pi = piLambda, llh = llhLambda)
   }