Nothing
"dst" <-
function(x,nu=3){
gamma( (nu+1)/2)/(gamma(nu/2)*sqrt(pi)*sqrt(nu-2)*( 1+ (x^2)/(nu-2))^((nu+1)/2))
}
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.