ピアソン相関係数による類似性判定 2.3.2節のピアソン相関によるスコアを実装してみました。相関係数の計算は、集合知プログラミングの付録にある数式ではなく、Wikipediaにある以下の数式を使って求めました。 相関係数 出来たもの ユークリッド距離の時と同じように、ピアソン相関を計算するサブルーチンを作成しました。今回は殆どつまることなく動くコードが実装できました。サブルーチンは以下のようになりました。 # person1とperson2のピアソン相関係数を返す sub sim_pearson { my ($prefs, $person1, $person2) = @_; # 二人共評価しているアイテムのリストを得る my %si = (); foreach my $item (keys %{ $prefs->{$person1} }) { if ( $prefs->{$person2}