powered by
winval(x,tr=.2)
x<-rnorm(20) sort(x) winval(x)
Run the code above in your browser using DataLab