Nothing
FM.chi.pvalue <-
function(x){
y=log(x)
y=-2*sum(y)
p.value=pchisq(y,df=2*length(x),lower.tail=FALSE)
list("FMstatistic"=y, "FMpvalue"=p.value)
}
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.