R/prettydist.R

"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 == "pe3") return("Pearson Type III")
     if(x == "sla") return("Slash")
     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))
}

Try the lmomco package in your browser

Any scripts or data that you put into this service are public.

lmomco documentation built on Nov. 17, 2017, 7:25 a.m.