Nothing
dgt <-
function (x, mu = 0, sigma = 1, df = stop("no df arg"), log = FALSE) {
if (log)
dt((x - mu) / sigma, df = df, log = TRUE) - log(sigma)
else
dt((x - mu) / sigma, df = df) / sigma
}
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.