##---- 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){loc=apply(x,2,mean,tr=tr)cv=wincov(x,tr=tr)list(center=loc,cov=cv)}