powered by
See Marazzi A. (1993), p.48
liepsu(expsi = psi, upper = .dFvGet()$upr, til = .dFvGet()$tli)
See reference
Marazzi A. (1993) Algorithm, Routines, and S functions for Robust Statistics. Wadsworth & Brooks/cole, Pacific Grove, California. p.48