# my_sbm_uni <- sbm::estimateSimpleSBM(sbm::fungusTreeNetwork$tree_tree,
# model = "poisson")
my_sbm_uni <- FungusTreeNetwork$sbmResults$tree_tree
node_names_uni <- list(FungusTreeNetwork$networks$tree_names)
my_blocks_uni <- get_block(my_sbm_uni,
labels = c("Tree"),
node_names = node_names_uni
)
my_blocks_uni
Run the code above in your browser using DataLab