[popfile-commit] engine xval.pl,1.2,1.3

[<ssc...@us...>]

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

Modified Files:
	xval.pl 
Log Message:
actual update to allow training on fewer groupings

Index: xval.pl
===================================================================
RCS file: /cvsroot/popfile/engine/xval.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** xval.pl	28 May 2003 21:25:42 -0000	1.2
--- xval.pl	29 May 2003 11:00:56 -0000	1.3
***************
*** 324,328 ****
              
              if ($abucket ne 'unclassified') {
!                 foreach my $current_fraction ( sort keys( %{ $self->{messages}->{buckets}{$abucket}{subdirs}} )) {
          
                      # Do the hippy-hippy corpus-building shake
--- 324,328 ----
              
              if ($abucket ne 'unclassified') {
!                 foreach my $current_fraction ( 0 .. ( $c->parameter("xcnt") -1 ) ) {
          
                      # Do the hippy-hippy corpus-building shake