Import data, set seed and execute clustering
set.seed(1234) # setting a seed for the random number generator
data(iris)
ir3 <- kmeans(iris[,-5], centers=3, iter.max=200) # not using Species info.
table(ir3$cluster, iris$Species)
##
## setosa versicolor virginica
## 1 50 0 0
## 2 0 48 14
## 3 0 2 36
set.seed(1234) # setting a seed for the random number generator
data(USArrests)
us_cluster <- kmeans(USArrests, centers=5, iter.max=300) # not using Species info.
us_cluster$cluster
## Alabama Alaska Arizona Arkansas California
## 3 3 1 4 3
## Colorado Connecticut Delaware Florida Georgia
## 4 5 3 1 3
## Hawaii Idaho Illinois Indiana Iowa
## 2 5 3 5 2
## Kansas Kentucky Louisiana Maine Maryland
## 5 5 3 2 1
## Massachusetts Michigan Minnesota Mississippi Missouri
## 4 3 2 3 4
## Montana Nebraska Nevada New Hampshire New Jersey
## 5 5 3 2 4
## New Mexico New York North Carolina North Dakota Ohio
## 1 3 1 2 5
## Oklahoma Oregon Pennsylvania Rhode Island South Carolina
## 4 4 5 4 1
## South Dakota Tennessee Texas Utah Vermont
## 2 4 4 5 2
## Virginia Washington West Virginia Wisconsin Wyoming
## 4 4 2 2 4