R语言计算夹角余弦（Consine）

本文是本人在根据matlab的代码转化为R语言时的一步，分为两种情况。

第一种情况是matlab的pdist(X,'Consine'){一个矩阵的各个点之间的夹角余弦}；

第二种情况是matlab的1-pdist2(X,Y,'Consine'){两个矩阵，一个矩阵的点到另外一个矩阵任何一个点的夹角余弦}

理解夹角余弦公式：两个点的夹角余弦公式： $cos(\theta )=\frac{x1x2+y1y2}{\sqrt{x1^2+y1^2}\sqrt{x2^2+y2^2}}$

1一个矩阵点之间的夹角余弦：

matlab的代码为

D1 = pdist(X,'consine')

R语言相应的代码为:

 Consine=matrix(data=0,nrow =dim(X)[1],ncol = dim(X)[1])
这个参考了其他博主的文章做出来的
for (i in 1:dim(X)[1])for (j in 1:dim(X)[1])if (i < j)Consine[i,j] = sum(t(X[i,])*X[j,])/sqrt((sum(X[i,]^2))*sum(X[j,]^2))
#注意理解转置后的运算达到的目的，对着公式理解

2两个矩阵，第一个矩阵的每一个点到另外一个矩阵的每一个点之间的夹角余弦距离

matlab版的代码：

 Cosine   = 1 - pdist2(PopObj,Z,'cosine');
%%PopObj和Z是本人复现代码时的两个矩阵PopObj（130*3），Z（105*3）
%%得出的结果Consine（130*105）

R语言对应的代码：

#此代码段得出的结果和matlab代码得出得数据完全一样，只是本人在转换中的一步
Consine=matrix(data=0,nrow =dim(PopObj)[1],ncol = dim(Z)[1])
#Tips：如果不对Cosine进行设置会报错（incorrect number of subscripts on matrix）
#本人就是因为这个地方，两个矩阵之间的运算时一直报错
for (m in 1:dim(PopObj)[1]) {for (n in 1:dim(Z)[1]) {Consine[m,n]=sum(t(PopObj[m,])*Z[n,])/sqrt(sum(PopObj[m,]^2)*sum(Z[n,]^2))}
}
#PopObj和Z是本人复现代码时的两个矩阵PopObj（130*3），Z（105*3）
#得出的结果Consine（130*105）

R语言计算夹角余弦（Consine）相关推荐

R语言:计算各种距离
R语言:计算各种距离 MATLAB 版本的 http://blog.csdn.net/sinat_26917383/article/details/52101425 PYTHON版本的 http:// ...
R语言--计算各种距离
MATLAB 版本的 http://blog.csdn.net/sinat_26917383/article/details/52101425 PYTHON版本的 http://book.2cto.c ...
R语言计算曼哈顿距离（Manhattan Distance）实战:计算两个向量的曼哈顿距离、dist函数计算矩阵中两两元素的曼哈顿距离
R语言计算曼哈顿距离(Manhattan Distance)实战:计算两个向量的曼哈顿距离.dist函数计算矩阵中两两元素的曼哈顿距离目录 R语言计算曼哈顿距离(Manhattan Distance ...
R语言计算杰卡德相似系数（Jaccard Similarity）实战：自定义函数计算Jaccard相似度、对字符串向量计算Jaccard相似度、将Jaccard相似度转化为Jaccard距离
R语言计算杰卡德相似系数(Jaccard Similarity)实战:自定义函数计算Jaccard相似度.对字符串向量计算Jaccard相似度.将Jaccard相似度转化为Jaccard距离目录 R ...
R语言计算平均值的标准误差（standard error of the mean）：自定义函数计算平均值的标准误差、使用plotrix包的std.error函数计算平均值的标准误差
R语言计算平均值的标准误差(standard error of the mean):自定义函数计算平均值的标准误差.使用plotrix包的std.error函数计算平均值的标准误差目录
R语言计算回归模型每个样本（观察、observation、sample）的DFFITS度量实战：忽略单个观察（样本）时，回归模型所做的预测会发生多大的变化
R语言计算回归模型每个样本(观察.observation.sample)的DFFITS度量实战:忽略单个观察(样本)时,回归模型所做的预测会发生多大的变化目录
R语言计算回归模型每个样本（观察、observation、sample）的杠杆值（leverage）实战：如果一个样本的预测变量比其他样本的预测变量值更极端，那么被认为具有很高的杠杆作用
R语言计算回归模型每个样本(观察.observation.sample)的杠杆值(leverage)实战:如果一个样本的预测变量比其他样本的预测变量值更极端,那么被认为具有很高的杠杆作用目录
R语言计算每个分组的行数并将结果添加到dataframe中实战
R语言计算每个分组的行数并将结果添加到dataframe中实战目录 R语言计算每个分组的行数并将结果添加到dataframe中实战 #仿真数据
R语言计算F1评估指标实战：F1 score、使用R中caret包中的confusionMatrix（）函数为给定的logistic回归模型计算F1得分（和其他指标）
R语言计算F1评估指标实战:F1 score.使用R中caret包中的confusionMatrix()函数为给定的logistic回归模型计算F1得分(和其他指标) 目录

R语言计算夹角余弦（Consine）

R语言计算夹角余弦（Consine）相关推荐

最新文章

热门文章