powered by
give.thresh(matdist)
dist
matrix
xy <- matrix(rnorm(60),30,2) dxy <- dist(xy) th <- give.thresh(dxy)
Run the code above in your browser using DataLab