##---- 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){p=ncol(x)m=xfor (iin1:p){for (jin1:p){m[i,j]=m[i,j]/sqrt(x[i,i]*x[j,j])}}m}