# NOT RUN {
library(datasets)
data(iris)
rndSamples <- sample(nrow(iris),100)
trainData <- iris[rndSamples,]
testData <- iris[-rndSamples,]
cls <- hierarchicalCluster(trainData[,1:4],distmethod="euclidean",clusters=3)
# }
Run the code above in your browser using DataLab