R/JD.R

Defines functions JD

Documented in JD

JD <-
function(x, inverse=FALSE) {
# 	options(digits=12)
	if (inverse){
		return(as.POSIXct((x-2440587.5)*86400,origin=ISOdate(1970,01,01,0,0,0),format="%Y-%m-%d %H:%M:%S" ))
	}else{
		return(as.numeric(x)/86400 + 2440587.5)
	}
}

Try the insol package in your browser

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

insol documentation built on Feb. 10, 2021, 5:08 p.m.