##---- 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,COR=FALSE){val<-covmba2(x)$covif (COR){val=val/outer(sqrt(diag(val)),sqrt(diag(val)))}val}