R/lmRob.control.q

In robust: Port of the S+ "Robust Library"

lmRob.control <- function(tlo = 0.0001, tua = 1.5e-06, mxr = 50,
    mxf = 50, mxs = 50, tl = 1e-6, estim = "Final", initial.alg = "Auto",
    final.alg = "MM", seed = 1313, level = 0.10, efficiency = 0.90,
    weight = c("Optimal", "Optimal"), trace = TRUE)
{
  estim <- casefold(estim)
  estim.choices <- c("initial", "final")
  estim <- match.arg(estim, choices = estim.choices)

  initial.alg <- casefold(initial.alg)
  initial.choices <- c("auto", "l1", "altms", "exhaustive", "fast", "random")
  initial.alg <- match.arg(initial.alg, choices = initial.choices)

  final.alg <- casefold(final.alg)
  final.choices <- c("mm", "adaptive")
  final.alg <- match.arg(final.alg, choices = final.choices)

  weight <- casefold(weight)
  weight.choices <- c("optimal", "bisquare")
  weight <- match.arg(weight, choices =  weight.choices, several.ok = TRUE)

  list(tlo = tlo, tua = tua, mxr = mxr, mxf = mxf, mxs = mxs, tl = tl,
       estim = estim, initial.alg = initial.alg, final.alg = final.alg, 
       seed = seed, level = level, efficiency = efficiency, weight = weight,
       trace = trace)
}