# NOT RUN {
# 50 draws from a stochastic block model for a network view and a multivariate view
# where the communities and the clusters are independent
n <- 50
Pi <- tcrossprod(c(0.5, 0.5), c(0.5, 0.5))
theta1 <- rbind(c(0.5, 0.1), c(0.1, 0.5))
mu2 <- cbind(c(2, 2), c(-2, 2))
Sigma2 <- diag(rep(0.5, 2))
mv_sbm_gmm_gen(n, Pi, theta1, mu2, Sigma2)
# }
Run the code above in your browser using DataLab