1

次のように、2 つのカテゴリ ベクトル (文字ベクトル) 間の距離を計算しています。

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

もちろん、ベクトルの長さは同じです。結果は、2 つのベクトルが異なる次元の数です。

しかし、私はパフォーマンスの問題を抱えています。この計算を締める方法を知っている人はいますか?

ありがとう、ルーカス

4

1 に答える 1