leap_year <- function (year) { ly = (ifelse((year%%4 == 0 & year%%100 != 0) | year%%400 == 0, 366, 365) == 366) return(ly) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.