##---- 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,mu.too=FALSE){val<-tauvar(x)if (mu.too){val[2]<-valval[1]<-tauloc(x)}val}