Nothing
"search.glan.obrien" <- function(k,c,alpha){
return(glan((1:k)/k,rep(-8,k),c/sqrt((1:k)/k),0)$pr-alpha)
}
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.