mod = Mclust(iris[,1:4])
dr = MclustDR(mod)
plot(dr)
plot(dr, what = "evalues")
plot(dr, what = "scatterplot", dimens = c(1,3))
plot(dr, what = "pairs")
plot(dr, what = "contour")
plot(dr, what = "classification", ngrid = 200)
plot(dr, what = "boundaries", ngrid = 200)
plot(dr, what = "density")
plot(dr, what = "density", dimens = 2)
data(banknote)
da = MclustDA(banknote[,2:7], banknote$Status)
dr = MclustDR(da)
plot(dr)
plot(dr, what = "evalues")
plot(dr, what = "pairs")
plot(dr, what = "contour")
plot(dr, what = "contour", dimens = c(1,3))
plot(dr, what = "classification", ngrid = 200)
plot(dr, what = "boundaries", ngrid = 200)
plot(dr, what = "density")
plot(dr, what = "density", dimens = 2)
Run the code above in your browser using DataLab