# 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.