# load data
data("banknote")
dat <- banknote[-1]
## set up methods
## see also help('mset_user') and related functions
KM <- mset_kmeans(K = 3)
GMIX <- mset_gmix(K=3, erc=c(1,100))
# combine tuned methods
mlist <- mbind(KM, GMIX)
# perform bootstrap
# change B and ncores to a much larger value in real problems
res <- bqs(dat, mlist, B = 3, rankby="lq", ncores=1)
res
# now change ranking criterion
res2 <- bqs_rank(res, rankby="mean")
res2
Run the code above in your browser using DataLab