pvclust 的汉明距离测量

Question

我正在尝试为 pvclust 聚类方法创建汉明距离度量。 （没有为这个函数定义一个。）我基于为余弦测量给出的示例：

cosine <- function(x) {
x <- as.matrix(x)
y <- t(x) %*% x
res <- 1 - y / (sqrt(diag(y)) %*% t(sqrt(diag(y))))
res <- as.dist(res)
attr(res, "method") <- "cosine"
return(res)
}

我尝试这样做：

hamming <- function(x) {
x <- as.matrix(x)
y <- t(x) %*% x
res <- sum(y != y)
res <- as.dist(res)
attr(res, "method") <- "hamming"
return(res)
}

不幸的是，它不能正常工作。谁有任何帖子，错误在哪里以及如何解决？

Answer 1

试试这个

hamming <- function(x) {
x <- as.matrix(x)
y <- t(x) %*% x
res <- sum(x != y)
res <- as.dist(res)
attr(res, "method") <- "hamming"
return(res)
}