Вычислите расстояние между двумя точками, имеющими лат, длинное и возвышение в R

Есть ли пакет, который позволяет вычислить пространственное расстояние между двумя точками с учетом высоты. Поэтому для каждой точки мы будем иметь широту, долготу и высоту. До сих пор мне пришлось написать следующую функцию:

library(geosphere)  
distance3D <- function (point1, point2) {
      planiDist <- distm(point1[1:2], point2[1:2])
      altiDist <- point2[3] - point1[3]
      dist3D <- sqrt(planiDist^2+altiDist^2)
      return(dist3D)
    }

Мне просто интересно, существует ли одна функция в одном из пакетов R.