##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (m){library("rrcov")res=CovSest(m)center=res@centerz=res@covlist(center=center,cov=z)}