1、协方差
协方差：两个向量每一项与各自平均数只差 的对应项乘积之和的平均数。
方差：每一项与平均数只差 的平方的平均数。
标准差： 方差开平方
皮尔逊相关系数：两个向量的协方差 除以 两个向量的标准差的乘积。
a <- c(1, 3, 7, 8)
b <- c(12, 15, 16, 18)
sum_cov = 0
for (i in 1:length(a)) {
sum_cov = sum_cov + (a[i] - mean(a)) * (b[i] - mean(b))
}
cov_ab <- sum_cov/(length(a) -1 ) ## 求协方差
cov_ab
cov(a, b) ## 验证结构
sum_sda <- 0
for(i in 1:length(a)){
sum_sda = sum_sda + (a[i] - mean(a)) * (a[i] - mean(a))
}
sd_a = sqrt(sum_sda / (length(a) -1)) ## 求向量a的标准差
sd_a
sd(a)
sum_sdb <- 0
for(i in 1:length(b)){
sum_sdb = sum_sdb + (b[i] - mean(b)) * (b[i] - mean(b))
}
sd_b = sqrt(sum_sdb / (length(b) -1)) ## 求向量b的标准差
sd_b
sd(b)
cor_ab <- cov_ab / (sd_a * sd_b) ## 求皮尔逊相关系数
cor_ab
cor(a, b) ## 验证结果
标签：平均数,相关系数,协方差,皮尔逊,标准差,向量 来源： https://www.cnblogs.com/liujiaxin2018/p/15490501.html
本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享； 2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关； 3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关； 4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除； 5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。