Distance between two 3D points

[hcalvo]

Hello.
How to create a function to calculate the distance between two points, but in 3D.

[dvetsch75]

Here's the Euclidean Distance if you want to roll your own. I'm sure there are packages that have better implementations than this, as well as other distance metrics.

euclidean_distance <- function(x1, y1, z1, x2, y2, z2) {
    sqrt(
        sum(
            (x2 - x1)^2,
            (y2 - y1)^2,
            (z2 - z1)^2
        )
    )
}

pt1 <- list(
    x = 1,
    y = 2,
    z = 4
)
pt2 <- list(
    x = 7,
    y = 22,
    z = 0
)

euclidean_distance(
    x1 = pt1$x,
    x2 = pt2$x,
    y1 = pt1$y,
    y2 = pt2$y,
    z1 = pt1$z,
    z2 = pt2$z
)
#> [1] 21.26029

^{Created on 2022-04-27 by the reprex package (v1.0.0)}