Ecfun (version 0.3-2)

as.Date1970: Date from a number of days since the start of 1970.

Description

as.Date.numeric requires origin to be specified. The present function assumes that this origin is January 1, 1970.

Usage

as.Date1970(x, ...)

Value

Returns a vector of Dates

Arguments

x

a numeric vector of dates in days since the start of 1970.

...

optional arguments to pass to as.Date.

Author

Spencer Graves

See Also

as.Date as.POSIXct1970

Examples

days <- c(0, 1, 365)
Dates <- as.Date1970(days)

stopifnot(
all.equal(c('1970-01-01', '1970-01-02', '1971-01-01'),
          as.character(Dates))
)

stopifnot(
all.equal(days, as.numeric(Dates))
)