# NOT RUN {
prep.ph.data ()
gs1a <- ph4.pdfuv.gset.cks (species, cbind (sepal.length) )
gs1b <- ph4.pdfuv.gset.cks (species, cbind (sepal.width) )
gs2 <- ph4.pdfmv.gset.cks (species, cbind (sepal.length, sepal.width) )
d1a <- pdist (gs1a)
d1b <- pdist (gs1b)
d2 <- pdist (gs2)
#print out distance matrix
#(for bivariate models)
d2
#print out distances, ranked/sorted
ph4.rdist (d1a)
ph4.rdist (d1b)
ph4.rdist (d2)
# }
Run the code above in your browser using DataLab