data(iris)
irisMatrix <- as.matrix(iris[,1:4])
irisBic <- EMclust(irisMatrix)
irisSumry3 <- summary(irisBic, irisMatrix, G = 3)
uncerPlot(z = irisSumry3$z)
uncerPlot(z = irisSumry3$z, truth = rep(1:3, rep(50,3)))
do.call("uncerPlot", c(irisSumry3, list(truth = rep(1:3, rep(50,3)))))
Run the code above in your browser using DataLab