Nothing
sdfFD <- function(d, n){
lams <- 2*pi*seq(from=1/n, to=1/2, by=1/n)
(1/(2*pi))*(2*sin(lams/2))^(-2*d)
}
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.