# NOT RUN {
# retrieve group classification from hierarchical cluster analysis
# on the mtcars data set (5 groups)
groups <- sjc.cluster(mtcars, 5)
# plot goodness of group classificatoin
sjc.grpdisc(mtcars, groups, 5)
# }
Run the code above in your browser using DataLab