# my_sbm_bi <- sbm::estimateBipartiteSBM(sbm::fungusTreeNetwork$fungus_tree,
# model = 'bernoulli')
my_sbm_bi <- FungusTreeNetwork$sbmResults$fungus_tree
node_names_bi <- list(
row = FungusTreeNetwork$networks$fungus_names,
col = FungusTreeNetwork$networks$tree_names
)
my_blocks_bi <- get_block(my_sbm_bi,
labels = c(row = "Fungus", col = "Tree"),
node_names = node_names_bi
)
my_blocks_bi$row
my_blocks_bi$col
Run the code above in your browser using DataLab