library(simone)
## Graph generation
p <- 100
n <- 1
proba.in <- 0.15
proba.out <- 0.005
alpha <- c(.5,.3,.2)
X <- SimDataAffiliation (p, n, proba.in, proba.out, alpha)
## Graphical representation
g <- Gplot(X$K.theo, X$cl.theo, main = "A tri-modular graph")
Run the code above in your browser using DataLab