11.1.4 Modellbasierte Clusterung

		# model-based clustering data(iris) # iris Daten, nur Spalten 1-4 nehmen! library(mclust) res <- Mclust(iris[,1:4],3:9) # Loesungen fuer 3 bis 9 Cluster plot(res) # diverse Diagnostik Plots str(res) # Inhalte des Output-Objektes res$classification # Cluster-Zuteilung entsprechend der besten Loesung pdf("mclust1.pdf",width=6,height=6) plot(res,what="BIC") dev.off()
		# model-based clustering data(iris) # iris Daten, nur Spalten 1-4 nehmen! library(mclust) res <- Mclust(iris[,1:4],3:9) # Loesungen fuer 3 bis 9 Cluster plot(res) # diverse Diagnostik Plots str(res) # Inhalte des Output-Objektes res$classification # Cluster-Zuteilung entsprechend der besten Loesung pdf("mclust2.pdf",width=6,height=6) plot(res,what="classification") dev.off()