File: correlation

package info (click to toggle)
libmath-gsl-perl 0.45-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 192,156 kB
  • sloc: ansic: 895,524; perl: 24,682; makefile: 12
file content (20 lines) | stat: -rwxr-xr-x 471 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!/usr/bin/perl -w
use Math::GSL::Statistics qw/gsl_stats_correlation/;
use strict;

my $data1 = [
            17, 18, 16, 18, 12,
            20, 18, 20, 20, 22,
            20, 10, 8, 12, 16,
            16, 18, 20, 18, 21
            ];

my $data2 = [
            19, 20, 22, 24, 10,
            25, 20, 22, 21, 23,
            20, 10, 12, 14, 12,
            20, 22, 24, 23, 17
            ];

my $x = gsl_stats_correlation($data1, 1, $data2, 1, 20);
print "x=$x\n";