Nothing
summary.fitdstn <- function(object, ...)
{
#object <- object[c("call", "estimate", "sd", "vcov", "mu", "V.mu")]
#oldClass(object) <- "summary.fitdstnRob"
object
}
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.