R中两个几何点之间的距离计算

# 创建两个几何点
point1 <- c(1, 2)
point2 <- c(3, 4)

# 使用dist()函数计算欧氏距离
euclidean_distance <- dist(rbind(point1, point2))
print(euclidean_distance)

# 使用dist()函数计算曼哈顿距离
manhattan_distance <- dist(rbind(point1, point2), method = "manhattan")
print(manhattan_distance)

# 使用dist()函数计算切比雪夫距离
chebyshev_distance <- dist(rbind(point1, point2), method = "maximum")
print(chebyshev_distance)

         1
2 2.828427
         1
2 4.000000
         1
2 2.000000