我试图在犯罪数据集中的r中实现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
答案 0 :(得分:0)
在实际使用算法并比较结果之前,请花点时间打开kmeans代码并逐行查看功能。
在将输出与您的输出进行比较之前,您应该熟悉它们的代码。
我倾向于查看所写的论文,并且代码并排,你应该能够发现任何差异。