if(require("mclust")) {
eei <- me(modelName = "EEI", data = iris[,-5], z = unmap(iris[,5]))
vvv <- me(modelName = "VVV", data = iris[,-5], z = unmap(iris[,5]))
vvi <- me(modelName = "VVI", data = iris[,-5], z = unmap(iris[,5]))
mefly(eei, iris[,-5])
mefly(vvi, iris[,-5])
mefly(vvv, iris[,-5])
}
Run the code above in your browser using DataLab