Nothing
DAYSperYEAR<-function(yr)
{
n = length(yr)
YRDAYS = rep(365, n)
YRDAYS[yr%%4 == 0 & yr%%100 != 0 ] =366
YRDAYS[yr%%4 == 0 & yr%%100 == 0 & yr%%400 == 0 ] = 366
return(YRDAYS)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.