R/leap_year.R

leap_year <-
function (year) {
  ly = (ifelse((year%%4 == 0 & year%%100 != 0) | year%%400 == 0, 366, 365) == 366)
  return(ly)
}
veldanie/SuraFixedIncome documentation built on Feb. 15, 2021, 9:42 a.m.