NAME

Lingua::EN::Segmenter::Evaluator - Evaluate a segmenting method

SYNOPSIS

            

              
              
my $tiling_segmenter = Lingua::EN::Segmenter::TextTiling->new();
foreach (@ARGV) {
    my $input = read_file($_);
    print "\nFile name: $_\n";
    printf "Results from TextTiling algorithm:
  Strict scoring:       %2d%% recall, %2d%% precision
  Relaxed scoring:      %2d%% recall, %2d%% precision
  V. relaxed scoring:   %2d%% recall, %2d%% precision
", calc_stats(evaluate_segmenter($tiling_segmenter,20,$input));
}
            
          

DESCRIPTION

See synopsis.

Also check out segmenter.pl in the eg directory.

BUGS

This module only works correctly when the segmenter has a MIN_SEGMENT_SIZE >= 2.

AUTHORS

David James <splice@cpan.org>

SEE ALSO

Lingua::EN::Segmenter::TextTiling, Lingua::EN::Segmenter::Evaluator, http://www.cs.toronto.edu/~james