data(cookdata)
dmat <- geodistance(longvar=cookdata$LONGITUDE ,latvar=cookdata$LATITUDE, lotarget=-87.627800,
latarget=41.881998)
cookdata$dcbd <- dmat$dist
cookdata$dnorth <- dmat$dnorth
cookdata$deast <- dmat$deast
Run the code above in your browser using DataLab