is.leapyear=function(year){
#http://en.wikipedia.org/wiki/Leap_year
return(year[((year %% 4 == 0) & (year %% 100 != 0)) | (year %% 400 == 0)])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.