Nothing
`hanning` <-
function (x, n=7)
{
j <- 0:(n - 1)
win <- 1 - cos(2 * pi / (n - 1) * j)
win <- win / sum(win)
as.vector(filter(x, win))
}
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.