R语言实现两列数据相似度

以下是两种R语言实现两列数据相似度的方法：

1. 使用自定义函数mashi()计算两列数据的马氏距离相似度：

mashi <- function(a,b) {
  # a,b均为向量
  return (((a-b) %*% t(t(a-b))) / cov(a,b))
}

a <- rnorm(5,0,1)
b <- rnorm(5,1,1)
mashi(a,b) # 输出：30.44869

2. 使用cosine()函数计算两列数据的余弦相似度：

library(proxy)

a <- c(1,2,3,4,5)
b <- c(2,4,6,8,10)
cosine(as.matrix(a), as.matrix(b)) # 输出：1