#--- EXAMPLE 1 ------------------------------------------
# \donttest{
data(geyser2)
(out <- tclustIC(geyser2, whichIC="MIXMIX", alpha=0.1))
## Show the first two best solutions using as Information criterion MIXMIX
cat("\nBest solutions using MIXMIX\n")
outsol <- tclust::tclustICsol(out, whichIC="MIXMIX", nsol=2)
plot(outsol)
plot(outsol, choice=c(1,2))
plot(outsol, choice=c(1,2), xlab="XLAB", ylab="YLAB")
# }
Run the code above in your browser using DataLab