计算R中的欧几里德距离的函数

euclidean_distance <- function(x, y) {
  if (length(x) != length(y)) {
    stop("The lengths of the two vectors must be the same.")
  }
  
  sum((x - y)^2)^(1/2)
}

# 使用示例
vector1 <- c(1, 2, 3)
vector2 <- c(4, 5, 6)

distance <- euclidean_distance(vector1, vector2)

# 使用proxy库
install.packages("proxy")
library(proxy)

vector1 <- c(1, 2, 3)
vector2 <- c(4, 5, 6)

distance <- dist(rbind(vector1, vector2))

# 使用stats库
vector1 <- c(1, 2, 3)
vector2 <- c(4, 5, 6)

distance <- dist(rbind(vector1, vector2), method = "euclidean")