1

我正在计算两个分类向量(即字符向量)之间的距离,如下所示:

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

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

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

谢谢,卢卡斯

4

1 回答 1

1

目前尚不清楚您正在处理什么大小的向量,或者太慢意味着什么,但这只是汉明距离,对吧?这行得通吗

sum(Ref != Inp)
于 2013-07-04T11:54:05.137 回答