if (FALSE) {
# load dataset and perform model search.
data(x2)
data_in <- matrix(x2,ncol = 2)
mm <- mixture::gpcm(data = data_in,G = 1:7,
start = 0,
veo = FALSE,pprogress=FALSE)
# get best model
best = get_best_model(mm)
best
}
Run the code above in your browser using DataLab