K <- 4
repeat{
Q <- MixSim(BarOmega = 0.01, MaxOmega = 0.05, K = 4, p = 2)
if (Q$fail == 0) break
}
A <- simdataset(n = 1000, Pi = Q$Pi, Mu = Q$Mu, S = Q$S)
colors <- c("red", "green", "blue", "brown")
plot(A$x, xlab = "x1", ylab = "x2", type = "n")
for (k in 1:K){
points(A$x[A$id == k, ], col = colors[k], pch = 19, cex = 0.4)
}Run the code above in your browser using DataLab