R/x2pars.R

In wasquith/lmomco: L-Moments, Censored L-Moments, Trimmed L-Moments, L-Comoments, and Many Distributions

"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)
}