powered by
winvar(x,tr=.2,na.rm=FALSE)
x<-rnorm(20) winvar(x) sqrt(winvar(x))/0.6421
Run the code above in your browser using DataLab