##---- 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){library(robust)temp<-covRob(x,estim="M")val<-templist(center=val[3]$center,cov=val[2]$cov)}