end0tknr's kipple - 新web写経開発

http://d.hatena.ne.jp/end0tknr/ から移転しました

perlのStatistics::Basicでピアソンの相関係数を算出

ピアソンの相関係数( Pearson correlation coefficient )とは

 \Large \frac{ \sum_{i=1}^n(x_i- \overline{x})(y_i-\overline{y}) } { \sqrt{\sum_{i=1}^n(x_i-\overline{x})^2} \sqrt{\sum_{i=1}^n(y_i-\overline{y})^2}}
※はてなtex記法(mimeTeX)で数式を記載しています
数式を表示する(tex記法) - はてなダイアリーのヘルプ
mimetex.html

perlなら、Statistics::Basic::Correlation で相関係数を算出

http://search.cpan.org/dist/Statistics-Basic/

 use Statistics::Basic qw(:all);

↑こちらのdocumentに記載されている通りです。
Statistics::Basic には、他にも関数があるので、主要なものを記載しておきます。

中央値 my $median = median( 1,2,3 );
平均 my $mean = mean( [1,2,3]);
分散 my $variance = variance( 1,2,3 );
標準偏差 my $stddev = stddev( 1,2,3 );
共分散 my $covariance = covariance( [1 .. 3], [1 .. 3] );
相関 my $correlation = correlation( [1 .. 3], [1 .. 3] );