R/trim.me.R

In asbio: A Collection of Statistical Tools for Biologists

Defines functions trim.me

Documented in trim.me

trim.me<-function(Y,trim=.2){
n.i<-length(Y)
Y1<-sort(Y)
bot<-floor(n.i*trim)+1
top<-n.i-bot+1
Y2<-Y1[bot:top]
Y2
}

Try the asbio package in your browser