check if a Gregorian year is leap year
is_gregorian_leap_year(year)
year
double
logical
is_gregorian_leap_year(c(2000, 2001, 2002)) # [1] TRUE FALSE FALSE