Nothing
studentpdf <-
function(x, mu, var, nu) {
c <- exp(lgamma(nu/2 + 0.5) - lgamma(nu/2)) / sqrt(nu * pi * var)
return( c * (1 + (1/(nu * var)) * t(x - t(mu))^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.