File: 75_missing_correlated.t

package info (click to toggle)
libstatistics-basic-perl 1.6611-3
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 392 kB
  • sloc: perl: 947; makefile: 2
file content (14 lines) | stat: -rw-r--r-- 285 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 

use t::locale_hack;
use Test;
use Statistics::Basic qw(:all);

plan tests => 1;

$SIG{__WARN__} = sub { die " FATAL WARNING: $_[0] " };

my $v1 = vector(1 .. 5, undef, undef, 7);
my $v2 = vector(1 .. 4, undef, undef, 8, 7);
my @f = handle_missing($v1,$v2);

ok( correlation(@f), 1 );