##---- 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){center<-apply(x,2,mean)cov<-var(x)return(sqrt(mahalanobis(x,center,cov)))}