Nothing
module <-
function(beta, gamma){
c=max(c(abs(mean(beta)),abs(mean(gamma))))
d=min(c(abs(mean(beta)),abs(mean(gamma))))
q=d/c
amp=c*sqrt(1+q*q)
return(amp)
}
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.