<<目次へ

相関係数を返す関数

　相関係数は次式によって求められます。

-プログラム例

package cor;

sub cor{
        my $n=@_;
        my $h=$n/2;
        for($i=0;$i<$h;$i++){
                $x[$i]=shift(@_);
        }
        for($k=0;$k<$h;$k++){
                $y[$k]=shift(@_);
        }

        require("C://Perl/function/sd.pl");
        require("C://Perl/function/cov.pl");

        my $x_sd=sd::sd(@x);
        my $y_sd=sd::sd(@y);
        my $xy_cov=&cov::cov(@x,@y);

        $cor=$xy_cov/($x_sd*$y_sd);

        return($cor);
}
1;

-関数の呼び出し

@x=(1,2,3,4,5);
@y=(6,7,8,9,10);

require("C://Perl/function/cor.pl");
$a=cor::cor(@x,@y);
print $a;