irisBIC <- Mclust(iris[,-5])
summary(irisBIC, iris[-5])
.Mclust
.Mclust <- mclustOptions(emModelNames = c("VII", "VVI", "VVV"))
.Mclust
irisBIC <- Mclust(iris[,-5])
summary(irisBIC, iris[-5])
.Mclust <- mclustOptions() # restore defaults
.MclustRun the code above in your browser using DataLab