# my_sbm_bi <- sbm::estimateBipartiteSBM(sbm::fungusTreeNetwork$fungus_tree,
# model = 'bernoulli')
my_sbm_bi <- FungusTreeNetwork$sbmResults$fungus_tree
plotSbm(my_sbm_bi,
ordered = TRUE, transpose = TRUE,
plotOptions = list(title = "An example Matrix")
)
Run the code above in your browser using DataLab