[Depmix-commits] r658 - pkg/depmixS4/R

[noreply at r-forge.r-project.org]

Author: maarten
Date: 2018-07-25 18:11:37 +0200 (Wed, 25 Jul 2018)
New Revision: 658

Modified:
   pkg/depmixS4/R/EM.R
Log:
EM returns object as fitted (with warning) if likelihood decreases

Modified: pkg/depmixS4/R/EM.R
===================================================================
--- pkg/depmixS4/R/EM.R	2018-07-25 15:53:33 UTC (rev 657)
+++ pkg/depmixS4/R/EM.R	2018-07-25 16:11:37 UTC (rev 658)
@@ -455,7 +455,7 @@
 		    )
 		}
 	} else {
-	  if(likelihood_increased) {
+	  if(likelihood_decreased) {
 	    object at message <- "likelihood decreased in EM iteration; stopped without convergence."
 	  } else {
 	    object at message <- "'maxit' iterations reached in EM without convergence."