Nothing
cctr <-
function(tickers, weights=rep(1,length(tickers)), start, end, data)
{
w = weights/sum(weights)
cctr = w*mctr(tickers, weights, start, end, data)
return(cctr)
}
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.