n<-20 #or try sample(1:20,1)
Y<-matrix(runif(3*n),ncol=3)
ipd<-ipd.mat(Y)
range(ipd)
ipd2<-dist.std.data(Y) #distance of standardized data
range(ipd2)
ipd2<-dist.std.data(Y,method="max") #distance of standardized data
range(ipd2)
#############
Y<-matrix(runif(60,0,100),ncol=3)
ipd<-ipd.mat(Y)
range(ipd)
ipd2<-dist.std.data(Y) #distance of standardized data
range(ipd2)
Run the code above in your browser using DataLab