Nothing
pdist <-
function(lat, lon, lat1, lon1)
{
rad <- 6367
#radius of earth in km
return(rad * acos(sin(lat) * sin(lat1) + cos(lat) * cos(lat1) * cos(
lon - lon1)))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.