# load data
data("banknote")
dat <- banknote[-1]
# generate kmeans setups
A <- mset_kmeans(K=c(2,3))
# generate gmix setups
B <- mset_gmix(K=c(2,3))
# combine setups
M <- mbind(A, B)
# get the PAM setting with K=3
m <- M[[4]]
m
# cluster data with M[[3]]
fit <- m$fn(dat)
fit
Run the code above in your browser using DataLab