days_nl_365 <-
function (date_fin, date_ini){
d365=sapply(date_fin, days_365, date_ini=date_ini)
t365=d365/365
return(list(days=d365,times=t365))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.