Nothing
tdist <- function(df) {
### df could be a vector or a scalar
ans <- list()
class(ans) <- "newfam"
ans$family <- "tdist"
ans$df <- df
return(ans)
}
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.