##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (xyz1,xyz2){xyz_d2<-(xyz1-xyz2)^2rss<-sum(colSums(xyz_d2))N<-dim(xyz1)[2]sqrt(rss/N)}