From 7cc0bdd4c447238451b9ffb8e16f5d97a2b7e21e Mon Sep 17 00:00:00 2001
From: Vsevolod Stakhov <vsevolod@highsecure.ru>
Date: Mon, 23 Nov 2015 01:23:38 +0000
Subject: Fix calculations

---
 src/libstat/classifiers/bayes.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/libstat/classifiers/bayes.c b/src/libstat/classifiers/bayes.c
index c3832400b..2a7ea2b89 100644
--- a/src/libstat/classifiers/bayes.c
+++ b/src/libstat/classifiers/bayes.c
@@ -48,10 +48,11 @@ bayes_error_quark (void)
 static gdouble
 inv_chi_square (gdouble value, gint freedom_deg)
 {
-	double prob, sum;
+	double prob, sum, m;
 	gint i;
 
 	errno = 0;
+	m = -value;
 	prob = exp (value);
 
 	if (errno == ERANGE) {
@@ -62,7 +63,8 @@ inv_chi_square (gdouble value, gint freedom_deg)
 	sum = prob;
 
 	for (i = 1; i < freedom_deg; i++) {
-		prob *= value / (gdouble)i;
+		prob *= m / (gdouble)i;
+		msg_debug_bayes ("prob: %.6f", prob);
 		sum += prob;
 	}
 
-- 
cgit v1.2.3