数据集中每行的欧几里德距离

Question

假设我们有数据集G2：

data(iris)
G2 <- iris[1:5, -5]

我们需要计算x中所有G2的{​​{1}}（G2}行和x（不包括x）之间的欧几里德距离，正式

我想知道最好的方法是什么。这是我最初的尝试：

G2

Answer 1

您的符号有点令人困惑，因为您在代码和公式中使用D的方式不同。 <怎么样

m <- as.matrix(dist(G2, upper=T))
D <- apply(m, 2, mean)
n <- length(D)
D <- n/(n-1)*D