File: 20_correlation.t

package info (click to toggle)
libstatistics-basic-perl 1.6611-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid, trixie
  • size: 392 kB
  • sloc: perl: 947; makefile: 2
file content (40 lines) | stat: -rw-r--r-- 800 bytes parent folder | download | duplicates (3)
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
38
39
40
use strict;
use t::locale_hack;
use Test;
use Statistics::Basic qw(:all toler=0.000_001);

plan tests => 7;

my  $corr = new Statistics::Basic::Correlation([1 .. 10], [1 .. 10]);
ok( $corr == 1 )
    or warn "\ncorr: $corr";

    $corr->insert( 11, 7 );
ok( $corr == ( (129/20) / (sqrt(609/100) * sqrt(165/20))))
    or warn "\ncorr: $corr";

    $corr->set_vector( [11 .. 13], [11 .. 13] );
ok( $corr == 1 );

    $corr->ginsert( 13, 12 );
ok( $corr == ( (1/2) / (sqrt(11/16) * sqrt(1/2)) ))
    or warn "\ncorr: $corr";




my  $j = new Statistics::Basic::Correlation;

    $j->set_vector( [11 .. 13], [11 .. 13] );
ok( $j == 1 )
    or warn "\ncorr: $j";




my $c = correlation([4,7,7], [4,7,7]);
ok( $c == 1 )
    or warn "\ncorr: $c";

$c->insert(3,4);
ok( $c, correlation([7,7,3], [7,7,4]) );