# NOT RUN {
a <- c(1,2,1,3,1,4,1,5,1,6)
matrixA <- matrix(a,ncol=2)
dataFrameA <- data.frame(matrixA)
divisiveHC(a,'EUC','MAX')
divisiveHC(matrixA,'MAN','AVG')
divisiveHC(dataFrameA,'CHE','MIN')
# }
Run the code above in your browser using DataLab