File: median_absolute_deviation.t

package info (click to toggle)
libstatistics-descriptive-perl 3.0801-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 404 kB
  • sloc: perl: 2,026; makefile: 2
file content (22 lines) | stat: -rw-r--r-- 415 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 2;

use Statistics::Descriptive;

{
    my $stat = Statistics::Descriptive::Full->new();

    $stat->add_data( 1, 1, 1, 2, 2, 2, 2, 4, 7 );

    my $mad = $stat->median_absolute_deviation();

    # TEST
    ok( defined($mad), "median_absolute_deviation is not undefined" );

    # TEST
    is( $mad, 1, "median_absolute_deviation is correct" );
}