R/prettydist.R

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

"prettydist" <-
function(x) {
  getdist <- function(x) {
     if(x == "aep4") return("4-p Asymmetric Exponential Power")
     if(x == "cau" ) return("Cauchy")
     if(x == "emu" ) return("Eta minus Mu")
     if(x == "exp" ) return("Exponential")
     if(x == "texp") return("Truncated Exponential")
     if(x == "gam" ) return("Gamma")
     if(x == "gep" ) return("Generalized Exponential Poisson")
     if(x == "gev" ) return("Generalized Extreme Value")
     if(x == "gld" ) return("Generalized Lambda")
     if(x == "glo" ) return("Generalized Logistic")
     if(x == "gno" ) return("Generalized Normal")
     if(x == "gov" ) return("Govindarajulu")
     if(x == "gpa" ) return("Generalized Pareto")
     if(x == "gum" ) return("Gumbel")
     if(x == "kap" ) return("Kappa")
     if(x == "kmu" ) return("Kappa minus Mu")
     if(x == "kur" ) return("Kumaraswamy")
     if(x == "lap" ) return("Laplace")
     if(x == "lmrq") return("Linear Mean Residual Quantile Function")
     if(x == "ln3" ) return("log-Normal3")
     if(x == "nor" ) return("Normal")
     if(x == "pdq3") return("Polynomial Density-Quantile3")
     if(x == "pdq4") return("Polynomial Density-Quantile4")
     if(x == "pe3" ) return("Pearson Type III")
     if(x == "sla" ) return("Slash")
     if(x == "smd" ) return("Singh Maddala")
     if(x == "st3" ) return("Student t (3-parameter)")
     if(x == "ray" ) return("Rayleigh")
     if(x == "rice") return("Rice")
     if(x == "revgum") return("Reverse Gumbel")
     if(x == "texp") return("Truncated Exponential")
     if(x == "tri" ) return("Triangular")
     if(x == "wak" ) return("Wakeby")
     if(x == "wei" ) return("Weibull")
  }
  return(sapply(x, getdist))
}