##---- 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){m=matrix(NA,nrow=nrow(x),ncol=ncol(x))for (jin1:ncol(x))m[,j]=as.numeric(x[,j])m}