source_block_sizes <- c(10, 10)
dest_block_sizes <- c(10, 10, 10)
bipartite_connection_matrix <- matrix(c(0.8, 0.5, 0.1, 0.1, 0.5, 0.8),
nrow = 2, byrow = TRUE)
bipartite_weight_matrix = matrix(c(20, 10, 2, 2, 10, 20),
nrow = 2, byrow = TRUE)
sample_bsbm(source_block_sizes, dest_block_sizes,
bipartite_connection_matrix, bipartite_weight_matrix, "poisson")
Run the code above in your browser using DataLab