Да. Используйте set.seed
, чтобы установить начальное значение для случайного значения перед выполнением кластеризации.
Используя пример в kmeans
:
set.seed(1)
x <- rbind(matrix(rnorm(100, sd = 0.3), ncol = 2),
matrix(rnorm(100, mean = 1, sd = 0.3), ncol = 2))
colnames(x) <- c("x", "y")
set.seed(2)
XX <- kmeans(x, 2)
set.seed(2)
YY <- kmeans(x, 2)
Тест на равенство:
identical(XX, YY)
[1] TRUE