adokoy001

use strict;
use warnings;
use Plack::MIME; # mimeタイプ自動判別用
use Data::Dumper;
use File::Slurp; # 効率的な静的ファイル応答

# 静的ファイル置き場
my $public_dir = './public';

# ディレクトリインデックスの指定

adokoy001

use strict;
use warnings;
use PDL;
use PDL::Stats::Basic;
# モジュール化するまでも無いのでgistに載せます。
# ランダム要素を無くすと出力がInfになったりするのでそこはご愛嬌ということで。
# また、対角要素は-1になってしまいます。

# 偏相関係数行列を求める関数
sub partial_corr{