#!/usr/bin/perl
use warnings;
use strict;
my @c1=(1,2,3,4);
my @c2=(2,3,5,6);
my $c3=cor(\@c1,\@c2);
print "$c3\n";
sub cor {
my @x = @{$_[0]};
my @y = @{$_[1]};
my $x_mean = mean(@x);
my $y_mean = mean(@y);
my $cov_x_y = 0;
my $cov_x = 0;
my $cov_y = 0;
foreach (0..$#x) {
$cov_x_y += (($x[$_]-$x_mean)*($y[$_]-$y_mean));
$cov_x += (($x[$_]-$x_mean)*($x[$_]-$x_mean));
$cov_y += (($y[$_]-$y_mean)*($y[$_]-$y_mean));
}
return $cov_x_y/(sqrt($cov_x)*sqrt($cov_y));
}
sub mean {
my @a = @_;
my $sum = 0;
foreach (@a) {
$sum += $_;
}
return $sum/($#a+1);
}
利用perl计算person相关系数
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
- 文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
推荐阅读更多精彩内容
- 时间序列分析中，自相关系数ACF和偏相关系数PACF是两个比较重要的统计指标，在使用arima模型做序列预测时，我...
- 如下图。 这里有两个问题： 1. hive和spark都有corr函数，impala貌似没有，那怎么计算相关系数？...
- 1 协方差 1.1 定义 协方差（Covariance）在概率论和统计学中用于衡量两个变量的总体误差。而方差是协方...
- 小结： （泛义的）高数很重要，高数是一切经济学和数据分析的基础。未来大数据也会用到的。含义和公式不难，比较难的是如...
- 今天青石的票圈出镜率最高的，莫过于张艺谋的新片终于定档了。 一张满溢着水墨风的海报一次次的出现在票圈里，也就是老谋...
