Ecfun (version 0.1-4)

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

Description

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

Usage

as.Date1970(x, ...)

Arguments

x

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

...

optional arguments to pass to as.Date.

Value

• Returns a vector of Dates

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))
)