R/julian2date.R

"julian2date" <-
  function(x){
    orig <- as.Date(attributes(x)[[1]])
    jorig <- as.numeric(orig)
    seqdates <- seq(from=orig,to=orig+max(x, na.rm=TRUE),by=1)
    seqjulian <- seq(from=jorig,to=jorig+max(x, na.rm=TRUE),by=1)
    seqdates[x+1]
}

Try the epitools package in your browser

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

epitools documentation built on March 26, 2020, 9:14 p.m.