grouping

2022-11-24 17:23:28 +09:00
parent b3635d65c6
commit 4725b93b1e
3 changed files with 369 additions and 0 deletions
--- a/Grouping/1.
+++ b/Grouping/1.
@@ -0,0 +1,12 @@
+data(iris)
+a = iris
+a
+
+a$Species=NULL # 원래 데이터 제외
+
+kc=kmeans(a, 3) # k=3
+summary(kc)
+
+table(iris$Species, kc$cluster)
+
+plot(a[c("Sepal.Length", "Sepal.Width")], col=kc$cluster)