Rcpp fast implementation of Huber's Psi Function
psiHuber_rcpp(r,c)
r
A numeric vector
c
Tuning constant
Ian M. Johnson
## Not run: psiHuber_rcpp(r,c) ## End(Not run)