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)