# NOT RUN {
data <- c(1,2,1,3,1,4,1,5,1,6)
clusters <- toList(data)
components <- toList(data)
mdDivisive.details(clusters, 'EUC', 'MAX', components)
mdDivisive.details(clusters, 'MAN', 'MIN', components)
# }
Run the code above in your browser using DataLab