Nothing
gblur <- function(x, sigma, radius=2*ceiling(3*sigma)+1, ...) {
filter2(x, filter = makeBrush(size=radius, shape="Gaussian", sigma=sigma), ...)
}
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.