r - 使用纬度和经度误差计算距离

Question

我正在使用这段代码：

a<-c(35.929673,-78.948237)
b<-c(38.889510,-77.032000)
c<-c(38.032120,-78.477510)
d<-c(36.379450,-75.830290)
df<-data.frame(a,b,c,d)
for (i in 1:(ncol(df)))
{
   for (j in (i+1):ncol(df))  
  {

   o<-distHaversine(as.vector(df[i]),as.vector(df[j]))

    print(o)

  }

}

我收到一个错误：

p[, 2] 中的错误：下标越界