powered by
psiHuber(r,c)
c: Tuning constant
a<-rnorm(1000) psi<-psiHuber(a,1.345) plot(a,psi)
Run the code above in your browser using DataLab