if (FALSE) {
# Simple example.
MAP(z_ig_random_soft(100,2))
# import dataset.
data(x2)
mm <- gpcm(data = as.matrix(x2),G = 1:7,
start = 2,
veo = FALSE,pprogress=FALSE)
best = get_best_model(mm)
# You can get labels using the internal object with MAP.
labs <- MAP(best$model_obj[[1]]$zigs)
# or you can just get labels directly.
labs2 <- best$map
}
Run the code above in your browser using DataLab