R/leap.years.R

# #'@rdname internal
# leap.year <- function(x){
# 	if (inherits(x, 'POSIXt'))
# 		x <- as.POSIXlt(x)$year + 1900
# 	x%%4 == 0 & (x%%100 != 0 | x%%400 == 0)
# }

Try the IHA package in your browser

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

IHA documentation built on May 2, 2019, 5:15 p.m.