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