# Example 1
data(garlicdist)
garlic <- tocher(garlicdist)
coph <- coph.tocher(garlic)
cor(coph, garlicdist)
# Example 2
usa <- tocher(dist(USArrests))
cophUS <- coph.tocher(usa)
cor(cophUS, dist(USArrests))
# End (not run)Run the code above in your browser using DataLab