R语言：根据经纬度计算国内两个地点之间的距离

############################################
# 输入国内两个地点
# 根据经纬度计算两个经纬度之间的距离
############################################

# 计算距离函数
add_dist <- function(address1,address2){
        
        add_id <- c(address1,address2)
        
        #载入需要的包
        library(rjson)
        library(RCurl)
        library(geosphere)
        
        #输入自己申请的百度地图的AK密钥
　　　　 #以下密钥必须替换成自己的
　　　　 # AK申请网址：http://lbsyun.baidu.com/index.php?title=webapi/direction-api
        AK <- ""  
        
        
        
        #设定空向量
        baidu_lat <- c()
        baidu_lng <- c()
        baidu_geo <- c()
        address <-c()
        
        for (location in add_id) {
                #建立地址转换网址
                url <- paste("http://api.map.baidu.com/geocoder/v2/?ak=",AK,"&output=json&address=",location, se