R/time365toDate.R

In aparamon/cmrutils: Misc Functions of the Center for Mathematical Research

Defines functions time365toDate

Documented in time365toDate

time365toDate <- function(x)
{
  year  <- trunc(x)
  md <- .time365md[round(1 + 365*(x%%1)), ]
  return(as.Date(paste(year, md$month, md$day, sep = '-')))
}