covOGK(X, n.iter, sigmamu, rcov = covGK, weight.fn,
       keep.data = FALSE, ...)sigmamu should return a single
    numeric value containing the robust scale (standard deviation)
    estimate.  When mu.too is true, X should be kept as part of the result.sigmamu() and
    weight.fn().center and
    cov.center and cov.sigmamu, rcov, and weight.fn, are
  available as well, see the Examples below,
  but their names and calling sequences are
  still subject to discussion and may be changed in the future.Gnanadesikan, R. and John R. Kettenring (1972) Robust estimates, residuals, and outlier detection with multiresponse data. Biometrics 28, 81--124.
covMcd, cov.rob.data(hbk)
hbk.x <- data.matrix(hbk[, 1:3])
cO1 <- covOGK(hbk.x, n.iter = 2,
              sigmamu = scaleTau2, weight.fn = hard.rejection)Run the code above in your browser using DataLab