[popfile-commit] engine/Classifier Bayes.pm,1.144,1.145

[<jgr...@us...>]

Update of /cvsroot/popfile/engine/Classifier
In directory sc8-pr-cvs1:/tmp/cvs-serv25248/Classifier

Modified Files:
	Bayes.pm 
Log Message:
Fix rounding problem with word counts and add new API get_count_for_word

Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.144
retrieving revision 1.145
diff -C2 -d -r1.144 -r1.145
*** Bayes.pm	14 May 2003 09:12:10 -0000	1.144
--- Bayes.pm	20 May 2003 20:15:02 -0000	1.145
***************
*** 1112,1115 ****
--- 1112,1135 ----
  # ---------------------------------------------------------------------------------------------
  #
+ # get_count_for_word
+ #
+ # Returns the number of times the word occurs in a bucket
+ #
+ # $bucket          The bucket we are asking about
+ # $word            The word we are asking about
+ #
+ # ---------------------------------------------------------------------------------------------
+ 
+ sub get_count_for_word
+ {
+     my ( $self, $bucket, $word ) = @_;
+ 
+     my $value = $self->get_value_( $bucket, $word );
+  
+     return int( exp( $value ) * $self->get_bucket_word_count( $bucket ) + 0.5 );
+ }
+ 
+ # ---------------------------------------------------------------------------------------------
+ #
  # get_bucket_unique_count
  #