# NOT RUN {
DEG <- sample(seq(5,15),100, replace=TRUE)
x <- net.cluster.affiliation(DEG,
community_affiliation_alpha=1.5,
community_affiliation_lambda=10,
community_affiliation_min=1,
community_size_alpha=2.5,
community_size_lambda=40,
community_size_min=3)
# }
Run the code above in your browser using DataLab