1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 2;
use Statistics::Descriptive;
my @data = (
601, 449, 424, 568, 569, 447, 425, 621, 616, 573, 584, 635, 480, 437,
724, 711, 717, 576, 724, 585, 458, 752, 753, 709, 584, 748, 628, 483,
739, 747, 694, 601, 758, 653, 487, 720, 750, 660, 588, 719, 631, 492,
584, 647, 548, 585, 649, 532, 492, 598, 653, 524, 567, 570, 506, 475,
640, 725, 688, 567, 634, 520, 488, 718, 769, 739, 576, 718, 527, 497,
698, 736, 785, 581, 733, 540, 537, 683, 691, 785, 588, 733, 531, 564,
581, 554, 765, 580, 626, 510, 533, 495, 470, 713, 571, 573, 476, 526,
441, 431, 686, 563, 496, 447, 518
);
my $stat = Statistics::Descriptive::Full->new();
$stat->add_data(@data);
# I should get 20 partitions, shouldn't I?
my %freqs = $stat->frequency_distribution(20);
# TEST
is( scalar( keys(%freqs) ), 20, "We got 20 partitions" );
my $sum = 0;
foreach my $v ( values(%freqs) )
{
$sum += $v;
}
# TEST
is( $sum, scalar(@data), "The total number of elements in the bins" );
|
