if (FALSE) {
#not run as R CMD check complains about the time taken.
#This code will take a little while to run (about 3.5minutes on my computer)
system.time({
example( regimix);
my.registab <- stability.regimix( fm, oosSizeRange=seq( from=1,to=fm$n%/%5,length=5),
times=fm$n, mc.cores=2, doPlot=FALSE);
plot( my.registab, minWidth=1, ncuts=15);
})
}
Run the code above in your browser using DataLab