# NOT RUN {
set.seed(1)
n <- 50
Pi <- diag(c(0.5, 0.5))
theta1 <- rbind(c(0.5, 0.1), c(0.1, 0.5))
theta2 <- cbind(c(0.1, 0.5), c(0.5, 0.1))
# 50 draws from a multi-view SBM with perfectly dependent communities
dat <- mv_sbm_gen(n, Pi, theta1, theta2)
# Test H0: communities are independent
# Data was generated under the alternative hypothesis
results <- test_indep_com(dat$data, nperm=25)
results$pval
# }
Run the code above in your browser using DataLab