|
From: <jgr...@us...> - 2003-09-10 22:42:51
|
Update of /cvsroot/popfile/engine/Classifier
In directory sc8-pr-cvs1:/tmp/cvs-serv22890/Classifier
Modified Files:
Bayes.pm
Log Message:
Fix an error in my use of logs
Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.194
retrieving revision 1.195
diff -C2 -d -r1.194 -r1.195
*** Bayes.pm 10 Sep 2003 22:33:57 -0000 1.194
--- Bayes.pm 10 Sep 2003 22:42:48 -0000 1.195
***************
*** 442,446 ****
if ( $self->{full_total__} > 0 ) {
! $self->{not_likely__} = -log( $self->{full_total__} / 10 );
foreach my $bucket (keys %{$self->{matrix__}}) {
--- 442,446 ----
if ( $self->{full_total__} > 0 ) {
! $self->{not_likely__} = -log( 10 * $self->{full_total__} );
foreach my $bucket (keys %{$self->{matrix__}}) {
|