具有三个参数的呼叫距离功能

Question

我根据名为x1和x2的两个向量（个体）和第三个权重向量（w）定义了距离。

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)
}

与之前提出的问题相关（Improving distance calculation）我想使用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中定义它。