# NOT RUN {
# sample data
data(data20)
# creating an object with results of hierarchical clustering
hca.object <- nomclust(data20, measure = "iof", eval = TRUE)
# a default series of plots
eval.plot(hca.object)
# changing the color indicating the optimum number of clusters
eval.plot(hca.object, opt.col= "darkorange")
# selecting only AIC and BIC criteria with the dark style
eval.plot(hca.object, criteria = c("AIC", "BIC"), style = "dark")
# }
Run the code above in your browser using DataLab