# NOT RUN {
data(vacmot)
summary(vacmotdesc)
dotchart(sort(colMeans(vacmot)))
## reproduce Figure 6 from Dolnicar & Leisch (2008)
cl6 <- kcca(vacmot, k=vacmot6, control=list(iter=0))
barchart(cl6)
# }
Run the code above in your browser using DataLab