test.data = prepare_data(glass, 1)[1:3]
part = partition.multi(test.data)
plot(part)
set.seed(123)
test.data.random = prepare_data(glass, 1)
test.data.random = test.data.random[sample(1:length(test.data.random), 5)]
part = partition.multi(test.data.random)
part$groups
Run the code above in your browser using DataLab