# NOT RUN {
set.seed(98765)
options(digits=2)
require(mclust)
iriss <- iris[sample(150,20),-5]
irisBIC <- mclustBIC(iriss)
siris <- summary(irisBIC,iriss)
extract.mixturepars(siris,2)
# }
Run the code above in your browser using DataLab