powered by
See Marazzi A. (1993), p.47
liepsh(c = .dFvGet()$ccc)
See reference
Marazzi A. (1993) Algorithm, Routines, and S functions for Robust Statistics. Wadsworth & Brooks/cole, Pacific Grove, California. p.47