# \donttest{
# load data
data("banknote")
dat <- banknote[-1]
# set up methods
mlist <- mset_gmix(K=1:3, erc=c(1,100))
# perform bootstrap
# change B and ncores to a much larger value in real problems
res <- bqs(dat, mlist, B = 3, type = "both", rankby="lq",
ncores = 1, oob = TRUE, savescores = FALSE, saveparams = FALSE)
# Plot with default settings
plot(res)
# Plot in percentage scale relative to first model
plot(res, perc_scale = TRUE)
# }
Run the code above in your browser using DataLab