## Not run:
# data(poblenou)
# nox<-poblenou$nox[1:6]
# # Hausdorff vs maximum distance
# out1<-metric.hausdorff(nox)
# out2<-metric.lp(nox,lp=0)
# out1
# out2
# par(mfrow=c(1,3))
# plot(nox)
# plot(hclust(as.dist(out1)))
# plot(hclust(as.dist(out2)))
# ## End(Not run)
Run the code above in your browser using DataLab