# NOT RUN {
## SBM parameters
directed <- FALSE
N <- 300 # number of nodes
Q <- 3 # number of clusters
alpha <- rep(1,Q)/Q # mixture parameter
pi <- diag(.45,Q) + .05 # connectivity matrix
## simulate a SBM without covariates
sbm <- missSBM::simulate(N, alpha, pi, directed)
## Sample network data
sampled_network <-
missSBM::sample(
adjacencyMatrix = sbm$adjacencyMatrix,
sampling = "double-standard",
parameters = c(0.4, 0.8)
)
print(sampled_network)
plot(sampled_network, clustering = sbm$memberships)
# }
Run the code above in your browser using DataLab