R中categoial向量间距离计算的性能

Question

我正在计算两个分类向量（即字符向量）之间的距离如下：

Distanz <- function(Ref,Inp){
  y <- numeric(length=1)
  for(i in 1:length(Ref)){
    if(Ref[i] != Inp[i]){y <- y+1}
  }
  return(y)
}

显然，矢量具有相同的长度。结果是两个向量不同的维数。

但我遇到了性能问题。有没有人知道如何加快这个计算？

谢谢， 卢卡斯

Answer 1

目前尚不清楚你正在处理的矢量大小，或者太慢意味着什么，但这只是hamming distance，对吧？这有用吗

sum(Ref != Inp)