tdist <- function(df) {
### df could be a vector or a scalar
ans <- list()
class(ans) <- "newfam"
ans$family <- "tdist"
ans$df <- df
return(ans)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.