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