Nothing
"dist.list" <-
function(type=NULL) {
if(is.null(type)) {
dist <- c("aep4", "cau", "emu", "exp", "texp", "gam", "gep",
"gev", "gld", "glo", "gno", "gov", "gpa", "gum",
"kap", "kmu", "kur", "lap", "lmrq", "ln3", "nor",
"pdq3", "pdq4", "pe3", "ray", "revgum", "rice", "sla",
"smd", "st3", "tri", "wak", "wei");
return(dist)
} else {
switch(type,
aep4=4, cau=2, emu=2, exp=2, gam=2, gep=3, gev=3,
gld=4, glo=3, gno=3, gov=3, gpa=3, gum=2, kap=4, kmu=2,
kur=2, lap=2, lmrq=2, ln3=3, nor=2,
pdq3=3, pdq4=3, pe3=3,
ray=2, revgum=2, rice=2, sla=2, smd=4, st3=3,
texp=2, tri=3, wak=5, wei=3,
warning("The given type argument does not match a distribution")
)
}
}
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.