data(birds)
xem <- mixmodCluster(birds, 2)
barplotCluster(xem["bestResult"], birds)
barplotCluster(xem["bestResult"], birds, variables = c(2, 3, 4))
barplotCluster(xem["bestResult"], birds, variables = c("eyebrow", "collar"))
Run the code above in your browser using DataLab