psihuber is a psi-function for robust estimation
psihuber
psihuber(u)
u
out transformed vector
out <- psihuber(c(3.3,-0.7,2.1,1.8))
Useful links