如何计算椭球壳与R中某点之间的最小距离

我将R中的椭球体（）函数应用于一组latlong点。从那里我试图找到椭球体和一个新的拉特朗点之间的最小距离。到目前为止，我有下面的代码，但它肯定是不完整的。非常感谢您的帮助，谢谢

df <- cbind(A$lat, A$long)
ellipse <- ellipsoidhull(df)

point <- (28.5,-81.2)

distance <- spDistsN1(ellipse, point, longlat = FALSE)

---

df我可能已经找到了答案，尽管不确切。我缺少预测功能，因此：

df <- cbind(A$lat, A$long)
ellipsePoints <- ellipsoidhull(df)
ellipse <- predict(ellipsePoints)

ellipse <- cbind(ellipse$longpts,ellipse$latpts)
point <- (longpt,latpt)

distance <- spDistsN1(ellipse, point, longlat = FALSE)

if anyone else has a more accurate way please let me know, thank you.

df我可能已经找到了答案，尽管不确切。我缺少预测功能，因此：

df <- cbind(A$lat, A$long)
ellipsePoints <- ellipsoidhull(df)
ellipse <- predict(ellipsePoints)

ellipse <- cbind(ellipse$longpts,ellipse$latpts)
point <- (longpt,latpt)

distance <- spDistsN1(ellipse, point, longlat = FALSE)

if anyone else has a more accurate way please let me know, thank you.

df