R/time365fromDate.R

Defines functions time365fromDate

Documented in time365fromDate

time365fromDate <- function(x)
{
  myd <- month.day.year(x)
  cycle <- match(with(myd, paste(month, day)),
                 with(.time365md, paste(month, day)))
  return(myd$year + (cycle - 1)/365)
}

Try the cmrutils package in your browser

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

cmrutils documentation built on Sept. 3, 2018, 5:03 p.m.