R/four.digit.year.R

In nickbond/hydrostats: Hydrologic Indices for Daily Time Series Data

Defines functions four.digit.year

Documented in four.digit.year

four.digit.year <- function(x, year = 1968) {
    n <- as.numeric(strftime(x, format = "%y"))%%100
    Y <- ifelse(n > year%%100, 1900 + n, 2000 + n)
    return(Y)
}