# NOT RUN {
# Create a K = 2 block network with edge + gwesp term
net <- simulate_mlnet(form = network.initialize(30, directed = FALSE) ~ edges + gwesp,
node_memb = c(rep(1, 15), rep(2, 15)),
theta = c(-3, 0.5, 1.0),
between_prob = 0.01,
options = set_options(number_cores = 2, burnin = 2000))
# Simulate a K = 2 block directed network, specifying a formula for between edges
net <- simulate_mlnet(form = network.initialize(30, directed = TRUE) ~ edges + gwesp,
node_memb = c(rep(1, 15), rep(2, 15)),
theta = c(-3, 0.5, 1.0),
between_form = ~ edges + mutual,
between_theta = c(-4, 2),
options = set_options(number_cores = 2, burnin = 2000))
# }
Run the code above in your browser using DataCamp Workspace