# \donttest{
sig <- diag (2)
cen <- rep (1, 2)
x <- rbind(MASS::mvrnorm(108, cen * 0, sig),
MASS::mvrnorm(162, cen * 5, sig * 6 - 2),
MASS::mvrnorm(30, cen * 2.5, sig * 50))
(out <- tclustIC(x, whichIC="ALL"))
plot(out)
# }
Run the code above in your browser using DataLab