kmodesクラスタのサイズは、実行ごとにかなり変化します

Question

rでkmodesクラスタリングを使用しています。私は、異なるクラスタでもシード

set.seed(11) 
c1 = kmodes(data, 3, iter.max = 1000, weighted = FALSE) 

を設定した後、私は..私はkmodesを使用しています理解しても、再び同じコードをruningて後に変更していない出力を探していますサイズを取得以下のコードを実行するたびに最初のランダムな点のための関数kmeansとして静かな同じ技術我々はシードを設定している場合...その後、関数kmeansはなく、Kmodesに同じクラスタサイズの出力を与える。..

おかげで私たちがどうかを調査することができ、この単純なコードを使用して

ラーフル

Answer 1

与えられた結果

library(klaR) 
set.seed(1) 
x <- rbind(matrix(rbinom(250, 2, 0.25), ncol = 5), 
      matrix(rbinom(250, 2, 0.75), ncol = 5)) 
colnames(x) <- c("a", "b", "c", "d", "e") 

nreps <- 10 
mtx <- matrix(0, nrow(x), nreps) 
for (k in 1:nreps) { 
    set.seed(123) 
    mtx[, k] <- kmodes(x, 3, iter.max = 1000, weighted = FALSE)$cluster 
} 

kmodesの出力は「例による証明」はそれをしない...良いアイデアだったことはありませんnreps実行

apply(mtx,2,function(x) all(x==mtx[,1])) 

[1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE