R/is_leapyear.R

Defines functions is_leapyear

is_leapyear <- function(year){
  #http://en.wikipedia.org/wiki/Leap_year
  return(((year %% 4 == 0) & (year %% 100 != 0)) | (year %% 400 == 0))
}
neugelb/neugelbtools documentation built on July 7, 2020, 1:17 a.m.