# 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