Nothing
"x2pars" <- function(x, verbose=TRUE, ...) {
if(verbose) message("Working on L-moments")
lmr <- lmr2par(x, ...)
if(verbose) message("Working on Maximum Likelihood")
mle <- mle2par(x, init.para=lmr, ...)
if(verbose) message("Working on Maximum Product of Spacings")
mps <- mps2par(x, init.para=lmr, ...)
zz <- list(lmr=lmr, mle=mle, mps=mps)
return(zz)
}
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.