# NOT RUN {
# 25 draws from a two-view Gaussian mixture model where the clusters are independent
n <- 25
Pi <- tcrossprod(c(0.5, 0.5), c(0.25, 0.25, 0.5))
mu1 <- cbind(c(2, 2), c(-2, 2))
mu2 <- cbind(c(0, 1), c(1, 0), c(-1, 0))
Sigma1 <- diag(rep(1, 2))
Sigma2 <- diag(rep(0.5, 2))
mv_gmm_gen(n, Pi, mu1, mu2, Sigma1, Sigma2)
# }
Run the code above in your browser using DataLab