powered by
See Marazzi A. (1993), p.137
wfshat(xt, n = nrow(xt), sh)
See reference
Marazzi A. (1993) Algorithm, Routines, and S functions for Robust Statistics. Wadsworth & Brooks/cole, Pacific Grove, California. p.137