R/substddmm.R

Defines functions substddmm

Documented in substddmm

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)
}

Try the biogeo package in your browser

Any scripts or data that you put into this service are public.

biogeo documentation built on May 29, 2017, 10:55 a.m.