### Example 3 of Section 3.3 plot (b)
set.seed(1237)
Q <- MixSim(BarOmega = 0.01, K = 4, p = 2)
A <- simdataset(n = 500, Pi = Q$Pi, Mu = Q$Mu, S = Q$S, n.out = 10)
colors <- c("red", "green", "blue", "brown", "magenta")
par(mar = c(0.1, 0.1, 0.1, 0.1))
plot(A$X, col = colors[A$id+1], pch = 19, cex = 0.8,
xlab = "", ylab = "", axes = FALSE)
box()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.