我使用上面的数据样本定义了中心矩阵,并在我的kmeans函数中使用了这些信息,因此在运行kmeans后我希望在运行kmeansRslt$centers
之后。我看到了我的中心矩阵,但它与定义的中心完全不同?!
第一列数据是否未包含在kmeans
中,因为它的行和user_id
号码?
#fun
centersMatrix <- matrix(readyToCluster[279,],nrow=1,ncol=43)
#intellectual
centersMatrix <- rbind(centersMatrix,readyToCluster[13,])
#advanturous
centersMatrix <- rbind(centersMatrix,readyToCluster[276,])
#romantic
centersMatrix <- rbind(centersMatrix,readyToCluster[655,])
head(centersMatrix)
#kmeans with defined centers
kmeansRslt<-kmeans(readyToCluster[,2:43],centersMatrix[,2:43])
#size of each cluster
centersMatrix[,1:2]
kmeansRslt$centers[,1:2]