swh:1:snp:3a44eb759780145deea094ac2a25c5049546a085
Tip revision: c52ce072e457ea91212cea8cbcace0daa866910b authored by Han Lin Shang on 07 October 2018, 07:10:02 UTC
version 5.1
version 5.1
Tip revision: c52ce07
L1median2.R
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))
}