Nothing
lat2rA <-
function(lat, scale = "km")
{
if (scale == "Miles")
30. * arcdist(lat, -0.5, lat, 0.5, scale = scale)
else
1.852*30*arcdist(lat, -0.5, lat, 0.5, scale = scale)
}
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.