wfshat: Schweppe original weight proposal
Description
See Marazzi A. (1993), p.137Usage
wfshat(xt, n = nrow(xt), sh)
References
Marazzi A. (1993) Algorithm, Routines, and S functions
for Robust Statistics. Wadsworth & Brooks/cole, Pacific Grove,
California. p.137