R/L1median2.r

Defines functions L1median2

L1median2 <- function (X, tol = 1e-06, maxstep = 200, na.rm = TRUE, method = c("hossjercroux",
    "coordinate"))
{
    method <- match.arg(method)
    if (method == "coordinate")
        return(apply(X, 2, median.default, na.rm = na.rm))
    else return(hossjercroux(X, tol = tol, maxstep = maxstep,
        na.rm = na.rm))
}

Try the rainbow package in your browser

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

rainbow documentation built on Jan. 29, 2019, 5:09 p.m.