Nothing
`localvar` <-
function(SERIES, WIND = 30)
{
OUT <- aggregate(SERIES[2:(length(positions(SERIES)) - 1), ], adj = 1, moving
= WIND, FUN = var)
OUT
}
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.