R/fitrad.R

fitrad <- function(x, rad =c("gs", "mand", "rbs", "zipf"), ...){ 
  dots <- list(...)
  rad <- match.arg(rad)
  fit <- get(paste("fit", rad, sep=""), mode = "function")
  do.call(fit, c(list(x = x), dots))
}

Try the sads package in your browser

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

sads documentation built on May 2, 2019, 1:56 p.m.