Nothing
`angledist` <-
function(distribution, distpars=NA){
l <- list(distribution=distribution,chisq=NA, loglik=NA, AIC=NA, distpars=distpars,
fitmethod="Defined", fitdata = NA)
class(l) <- "angledist"
return(l)
}
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.