Nothing
JDymd <-
function(year,month,day,hour=12,minute=0,sec=0) {
if (nargs() < 3 ) {cat('USAGE: declination(year,month,day,hour=12,minute=0,sec=0) \n'); return()}
# valid 1901 to 2099
hour = hour + minute/60 + sec/3600
jd = 367*year - (7*(year+(month+9)%/%12))%/%4 + (275*month)%/%9+day+1721013.5 + hour/24
return(jd)
}
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.