From 941d3c3f1307581be278c86b604f79c35464382d Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Sun, 2 Nov 2008 15:58:29 +0000
Subject: [PATCH] EM was not checking for convergence properly.

---
 CLPBN/learning/em.yap | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/CLPBN/learning/em.yap b/CLPBN/learning/em.yap
index 4cab6f3d3..bf9017f9d 100644
--- a/CLPBN/learning/em.yap
+++ b/CLPBN/learning/em.yap
@@ -81,7 +81,7 @@ em_loop(Its, Likelihood0, State, MaxError, MaxIts, LikelihoodF, FTables) :-
 	writeln(Likelihood:Likelihood0:Tables),
 	(
 	    (
-	     (Likelihood - Likelihood0)/Likelihood < MaxError
+	     abs((Likelihood - Likelihood0)/Likelihood) < MaxError
 	    ;
 	     Its == MaxIts
 	    )