我正在计算两个分类向量(即字符向量)之间的距离,如下所示:
Distanz <- function(Ref,Inp){
y <- numeric(length=1)
for(i in 1:length(Ref)){
if(Ref[i] != Inp[i]){y <- y+1}
}
return(y)
}
显然向量具有相同的长度。结果是两个向量不同的维数。
但我遇到了性能问题。有谁知道如何加快这个计算?
谢谢,卢卡斯
我正在计算两个分类向量(即字符向量)之间的距离,如下所示:
Distanz <- function(Ref,Inp){
y <- numeric(length=1)
for(i in 1:length(Ref)){
if(Ref[i] != Inp[i]){y <- y+1}
}
return(y)
}
显然向量具有相同的长度。结果是两个向量不同的维数。
但我遇到了性能问题。有谁知道如何加快这个计算?
谢谢,卢卡斯