R/CheckLeapYear.R

# This fuctionc checkif year is a leap year. If yes, then returns 1 or 0.

CheckLeapYear <- function(year) {
    if ((year%%400 == 0) || ((year%%100 != 0) && (year%%4 == 0))) 
        temp <- 1 else temp <- 0
    return(temp)
} 
serbinsh/biocro documentation built on May 29, 2019, 6:57 p.m.