R/R/is.leapyear.R

Defines functions is.leapyear

is.leapyear=function(year){
  #http://en.wikipedia.org/wiki/Leap_year
  return(year[((year %% 4 == 0) & (year %% 100 != 0)) | (year %% 400 == 0)])
}
honglioslo/rNVE documentation built on May 31, 2021, 1:30 a.m.