Fix calculations

diff --git a/src/libstat/classifiers/bayes.c b/src/libstat/classifiers/bayes.c
index c3832400baf436434b0994dbbd960facc21d4f64..2a7ea2b89e86650e56efa782c647b2dfffc1a5fd 100644 (file)
--- 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;
        }