##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (x,tr=0.2,na.rm=FALSE,STAND=NULL){if (na.rm)x<-x[!is.na(x)]val<-mean(x,tr)val}