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

问题描述

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

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

point <- (28.5,-81.2)

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

解决方法

我可能已经找到了答案，尽管不准确。我错过了预测功能，所以：

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.