fitrad <- function(x, rad =c("gs", "mand", "rbs", "zipf"), ...){
dots <- list(...)
rad <- match.arg(rad)
fit <- get(paste("fit", rad, sep=""), mode = "function")
do.call(fit, c(list(x = x), dots))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.