X-Git-Url: https://git.auder.net/doc/html/img/rock_paper_scissors_lizard_spock.gif?a=blobdiff_plain;f=pkg%2FR%2FEMGLLF.R;h=f944f98e38ca48fcac75c73cd3ac2074551d06e9;hb=ca277ac5ab51fef149014eb5e4610403fdb3227b;hp=6ee7ba719a726e59dadbfc0086fc955e781ac2ce;hpb=a3cbbaea1cc3c107e5ca62ed1ffe7b9499de0a91;p=valse.git
diff --git a/pkg/R/EMGLLF.R b/pkg/R/EMGLLF.R
index 6ee7ba7..f944f98 100644
--- a/pkg/R/EMGLLF.R
+++ b/pkg/R/EMGLLF.R
@@ -174,7 +174,7 @@ EMGLLF <- function(phiInit, rhoInit, piInit, gamInit, mini, maxi, gamma, lambda,
sumPen <- sum(pi^gamma * b)
last_llh <- llh
- llh <- -sumLogLLH/n + lambda * sumPen
+ llh <- -sumLogLLH/n #+ lambda * sumPen
dist <- ifelse(ite == 1, llh, (llh - last_llh)/(1 + abs(llh)))
Dist1 <- max((abs(phi - Phi))/(1 + abs(phi)))
Dist2 <- max((abs(rho - Rho))/(1 + abs(rho)))