`nberdev` <- function(dnum=1) {
  if (is.nan(dnum) || ! dnum %in% 1:28)
  stop("dnum must be between 1 and 28")
  return( c("uniform",
            "double exponential",
            "extreme value",
            "infinite peak",
            "symmetric Pareto",
            "uniform scale mixture",
            "logarithmic peak",
            "isosceles triangle",
            "beta (2,2)",
            "chi-square (1)",
            "normal cubed",
            "inverse exponential",
            "skewed bimodal",
            "smooth comb",
            "trimodal uniform",
            "bilogarithmic peak")[dnum])             

Try the benchden package in your browser

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

benchden documentation built on May 2, 2019, 3:40 p.m.