# NOT RUN {
# Distances between garlic cultivars
data(garlicdist)
garlicdist
# Tocher's clustering
garlic <- tocher(garlicdist)
garlic
# Cophenetic distances
coph <- cophenetic(garlic)
coph
# Mantel's test
mantelTest(garlicdist, coph,
xlim = c(-1, 1))
# End (Not run)
# }
Run the code above in your browser using DataLab