Nothing
"returnBy" <-
function(x,dat,by,...)
{
bp <- endpoints(dat,by);
end.value <- period.apply(cumprod(1+x),bp, function(x) x[length(x)]);
per.change <- diff(c(1,end.value))/c(1,end.value[-length(end.value)]);
zret <- zoo(cbind(end.value,per.change),index(dat)[bp]);
change.name <- paste("change.by.",as.character(by),sep='');
colnames(zret) <- c("cumulative.ret",change.name);
return(zret);
}
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.