Nothing
fitsadC <- function(x, sad=c("exp","gamma","lnorm","pareto", "weibull"), ...){
dots <- list(...)
sad <- match.arg(sad)
fit <- get(paste("fit", sad, "C", sep=""), mode = "function")
do.call(fit, c(list(x = x), dots))
}
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.