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