3つのパラメータを持つコール距離関数

Question

x1とx2という名前の2つのベクトル（個体）と重みの第3のベクトル（w）に応じて距離を定義しました。私は尋ねた前の質問（Improving distance calculation）に関連

w.dist <- function(w, x1, x2){ 
# Define y1 and y2 
    y1 <- x1/w 
    y2 <- x2/w 
# Define the distance directly 
    w.d <- sqrt(sum(w*(log(y1/w.geoM(w,x1)) - log(y2/w.geoM(w,x2)))^2)) 
# Return the value 
    return(w.d) 
} 

私はdist{proxy}機能を使用します。

問題は、私はこの追加パラメータで自分の距離を指定する方法がわかりません。私は試しました：

# Define the vector of weights 
    w <- c(2,rep(1,9)) 
    # Try to compute the distances 
    DIST <- dist(x, method = w.dist) 

...しかし、動作しません。 ユニークな解決策は、w.distをx1とx2にのみ依存させることです。

Answer 1

前述のように、wを引数として渡すのではなく、関数w.distで定義します。