Create a simulated multilevel network (MLVSBM object)

mlvsbm_simulate_network(
  n,
  Q,
  pi,
  gamma,
  alpha,
  directed,
  affiliation = "uniform",
  distribution = list("bernoulli", "bernoulli"),
  no_empty_org = FALSE,
  no_isolated_node = FALSE
)

Arguments

n: A list of 2 positive integers, the number of individuals and organizations.
Q: A list of 2 positive integers, the number of clusters of individuals and organizations.
pi: A vector of probabilities of length Q_O, the mixture parameter for the organizations.
gamma: A \(Q_I \times Q_O\) matrix with each column summing to one, the mixture parameters for the individuals
alpha: A list of 2 matrices, a \(Q_I \times Q_I\) matrix giving the connectivity probabilities of the individuals and a \(Q_O \times Q_O\) matrix giving the connectivity probabilities of the organizations.
directed: A list of 2 logical. Is the individual level a directed network ? Is the inter-organizational level a directed network?
affiliation: The distribution under which the affiliation matrix is simulated in c("uniform", "preferential").
distribution: A list for the distribution of X, only "bernoulli" is implemented.
no_empty_org: A logical with FALSE as default, should every organizations have at least one affiliated individual? Needs to have \(n_I \geq n_O\).
no_isolated_node: A logical, if TRUE then the network is simulated again until all nodes are connected.

Value

An MLVSBM object, a simulated multilevel network with levels, affiliations and memberships.

Examples

my_mlvsbm <- MLVSBM::mlvsbm_simulate_network(
  n = list(I = 10, O = 20), # Number of nodes for the lower level and the upper level
  Q = list(I = 2, O = 2), # Number of blocks for the lower level and the upper level
  pi = c(.3, .7), # Block proportion for the upper level, must sum to one
  gamma = matrix(c(.9, .2,   # Block proportion for the lower level,
                   .1, .8), # each column must sum to one
                 nrow = 2, ncol = 2, byrow = TRUE),
  alpha = list(I = matrix(c(.8, .2,
                            .2, .1),
                          nrow = 2, ncol = 2, byrow = TRUE), # Connection matrix
               O = matrix(c(.99, .3,
                            .3, .1),
                          nrow = 2, ncol = 2, byrow = TRUE)),# between blocks
  directed = list(I = FALSE, O = FALSE)) # Are the upper and lower level directed