Nothing
substddmm <-
function (dc)
{
dd <- floor(abs(dc))
m1 <- (abs(dc) - dd) * 60
mm <- floor(m1)
ss <- (m1 - floor(m1)) * 60
ns <- ifelse(abs(dc) - dc == 0, "N", "S")
z <- dms2dd(mm, dd, ss, ns)
}
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.