##---- 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,est=covmcd,...){library(MASS)val<-prod(eigen(est(x,...))$values)val}