윤년

윤년 판별을 위한 R 함수 숫자형 벡터(연도)를 인자로 전달하면, TRUE(윤년) 여부를 담은 부울 벡터를 반환합니다. is.leapyear=function(year){ #http://en.wikipedia.org/wiki/Leap_year return(((year %% 4 == 0) & (year %% 100 != 0)) | (year %% 400 == 0)) } 윤년의 규칙은 4로 나누어떨어지되 100으로 나누어떨어지지 않거나, 400으로 나누어떨어지는 경우입니다. 이 함수를 이용해 연도 리스트를 한 번에 검사할 수 있습니다.