K表示R中的聚类算法

Question

我试图在犯罪数据集上实现kmeans算法，并希望在使用kmeans.ani（）函数的迭代期间查看聚类。但是，kmeans算法产生的中心与图中的聚类不匹配。我也尝试过使用set.seed（）函数。

> set.seed(5)

> fit<-kmeans(mydata,5)

> set.seed(5)

> kmeans.ani(mydata,5)

> fit[2]

$centers

Murder Rape Kidnapping.and.Abduction Dacoity

1 2712.33333 2183.0000 1703.6667 339.00000

2 1722.80000 1473.8000 3857.6000 231.60000

3 85.66667 129.6111 143.3333 11.44444

4 1382.62500 739.1250 1148.1250 190.62500

5 4951.00000 2042.0000 8500.0000 379.00000

Answer 1

实际使用你的算法和比较结果之前，请一会儿打开kmeans代码并逐行查看函数。

在将输出与您的输出进行比较之前，您应该先熟悉自己的代码。

我倾向于做的是看写的文件，并肩并肩的代码，你应该能够捕捉到任何差异。